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ABSTRACT 


The  Joint  Army/Navy  Rotorcraft  Analysis  and  Design  (JANRAD)  computer 
program  has  been  developed  at  the  Naval  Postgraduate  School  to  aid  in  the  preliminary 
design  of  rotorcraft  and  has  been  updated  to  include  a  Graphical  User  Interface  (GUI). 
This  thesis  is  a  continuation  of  the  program,  focusing  on  stability  and  control  analysis. 
The  trim  solution  for  a  specified  flight  condition  is  computed  from  the  Performance 
module  of  the  program.  This  trim  solution  is  then  used  to  compute  stability  derivatives 
for  the  specified  flight  condition  and  a  linear  state  space  model  is  created.  This  solution 
can  then  be  used  to  perform  various  time  and  frequency  domain  analyses  or  can  be  saved 
to  a  file  for  future  use. 
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DISCLAIMER 


Readers  are  cautioned  that  the  computer  code  in  this  thesis  may  not  have  been 
exercised  for  all  cases  of  interest.  While  effort  has  been  made,  within  the  time  available, 
to  ensure  that  the  program  is  free  of  computational  and  logical  error,  additional 
verification  should  be  applied.  This  version  of  JANRAD  was  written  and  tested  in 
MATLAB®  version  5.0  Student  Edition.  The  use  of  this  application  is  at  the  risk  of  the 
user. 
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I.  INTRODUCTION 


A.  BACKGROUND 

The  Joint  Army/Navy  Rotorcraft  Analysis  and  Design  (JANRAD)  computer 
program  was  originally  developed  by  students  at  the  Naval  Postgraduate  School  (NPS)  as 
an  aid  to  design  for  the  1993  American  Helicopter  Association  (AHS)  Design 
Competition.  It  has  since  undergone  six  upgrades. 

The  original  JANRAD  developed  by  Robert  Kirk  Nicholson,  Jr.  [Ref.  1]  was  a 
command  line  type  program  written  in  MATLAB®,  that  was  used  for  performance 
analysis.  Inputs  for  the  configuration  of  the  proposed  helicopter  were  entered  via  the 
command  line  and  a  trim  solution  for  a  specified  flight  condition  was  obtained.  Central  to 
the  performance  analysis  is  the  harmonic  balance  method  of  Gerstenberger  and  Wood 
[Ref.  2],  Immediately  following  Nicholson’s  work  was  the  update  created  by  Walter  M. 
Wirth  [Ref.  3],  which  provided  a  linear  state  space  representation  for  the  helicopter  that 
could  be  used  for  stability  and  control  analysis.  The  third  version  by  Juan  D.  Cuesta  [Ref. 
4]  and  revised  by  Daniel  S.  Hiatt  [Ref.  5]  added  a  Blade  Dynamics  module  to  JANRAD 
utilizing  a  modified  Myklestad  Prohl  Transfer  Matrix  Method.  These  four  versions  of 
JANRAD  were  validated  by  David  M.  Eccles  [Ref.  6]  through  comparison  with  NASA- 
Army  H-34  flight  test  data  (1964)  and  more  recent  NAS  A- Army  UH-60A  flight  tests  at 
NASA  Ames  (1992). 

The  next  generation  JANRAD  Version  5.0  was  introduced  by  Chris  F.  Lapacik 
[Ref.  7]  and  revised  by  William  L.  Hucke  [Ref.  8].  This  version  brought  the  JANRAD 
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program  up  to  date  with  the  Microsoft®  Windows®  operating  environment  through  the 
use  of  MATLAB®  version  5.0  Student  Edition.  The  Performance  Module  of  JANRAD 
was  updated  with  a  Graphical  User  Interface  (GUI)  and  several  output  plots  were 
generated  and  verified. 

The  focus  of  this  thesis  was  intended  to  be  to  add  the  GUI  to  the  Stability  and 
Control  and  Rotor  Dynamics  modules  of  JANRAD.  The  input  screens  for  the  Stability 
and  Control  Module  were  developed  with  the  help  of  William  L.  Hucke.  The  intention 
was  simply  to  attach  this  as  the  “front  end”  to  the  Stability  and  Control  code  written  by 
Walter  M.  Wirth,  Jr.  [Ref.  3],  and  then  do  the  same  for  the  Rotor  Dynamics  Module.  Due 
to  various  problems  encountered  with  the  existing  Stability  and  Control  code,  the  Rotor 
Dynamics  Module  did  not  get  updated  to  the  GUI.  Instead,  several  output  screens  were 
developed  for  the  Stability  and  Control  Module.  The  aim  was  to  create  output  that  could 
be  easily  applied  to  the  Aeronautical  Design  Standard  Handling  Qualities  Requirements 
for  Military  Rotorcraft  (ADS-33),  the  military’s  accepted  standard  for  helicopter  design. 
The  intent  of  the  release  of  ADS-33  was  to  replace  MEL-H-8501,  which  had  been  the 
standard  since  the  late  1950’s. 

B.  ORIGINAL  STABILITY  AND  CONTROL  CODE 

The  original  code  for  the  Stability  and  Control  module  written  by  Walter  M. 
Wirth,  Jr.  [Ref.  3]  could  only  be  verified  for  the  hover  flight  regime  (0  -  40  knots).  The 
output  matrices  for  the  forward  flight  case  were  inconsistent  with  the  known  values  given 
for  Prouty’s  example  helicopter  [Ref.  9]. 
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Wirth’s  code  [Ref.  3]  utilized  the  hover  trim  condition  generated  by  the 
Performance  Module  as  the  starting  point  for  his  computations.  This  process  will  briefly 
be  discussed  in  a  later  section.  Stability  derivatives  were  determined  by  using  closed  form 
solutions  when  possible  and  by  solving  multiple  trim  solutions  about  a  nominal  point  to 
solve  for  unknowns.  This  method  proved  effective  for  the  case  of  the  hovering  aircraft, 
where  perturbations  were  performed  by  varying  gross  weight.  However,  when  the  forward 
flight  condition  was  evaluated,  new  stability  derivatives  were  needed  that  could  not  be 
correctly  evaluated  by  simply  solving  multiple  trim  solutions  about  a  nominal  point. 
These  particular  derivatives  where  not  used  in  the  hover  case  and  therefore  did  not  effect 
the  solution  for  this  regime.  The  bulk  of  this  thesis  was  spent  determining  an  acceptable 
method  to  determine  these  stability  derivatives. 

C.  USER’S  GUIDE 

A  User’s  Guide  is  attached  as  Appendix  A  and  gives  an  overview  of  the  major 
features  and  procedures  for  using  JANRAD  version  6.0.  It  is  a  compilation  of  several 
thesis  students  work  and  therefore  is  presented  in  its  entirety.  It  has  been  updated  to 
reflect  the  changes  and  improvements  to  the  Stability  and  Control  Module. 

D.  JANRAD  VERSION  6.0  FILE  STRUCTURE  AND  FLOW  CHART 

An  updated  flow  chart  which  tracks  files  and  Callback  operation  of  JANRAD 
version  6.0  Stability  and  Control  Module  is  included  as  Figure  1.  The  files  referenced  in 
the  flow  chart  are  included  as  appendices.  Asterisked  files  are  files  that  were  written 
during  prior  versions  and  were  not  updated  by  the  author. 
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II.  INPUT  SCREENS 


A.  GRAPHICAL  USER  INTERFACE 

The  original  versions  of  JANRAD  where  written  in  MATLAB®  PC  version  3.5. 
Entries  were  made  to  the  program  on  the  command  line  in  the  workspace.  The  process 
was  slow  and  cumbersome,  and  did  not  allow  the  user  to  easily  change  parameters  or 
view  entries  and  outputs.  With  the  development  of  the  GUI,  data  entry  has  become  easy 
and  intuitive.  Input  parameters  can  be  entered,  changed,  and  saved  with  the  touch  of  a 
button. 

The  Performance  module  was  updated  with  the  GUI  by  Chris  F.  Lapacik  [Ref.  7] 
and  modified  by  William  H.  Hucke  [Ref.  8].  A  detailed  explanation  of  the  Guide® 
function  in  MATLAB®  can  be  found  in  Lapacik’ s  thesis  [Ref.  7].  This  function  allows 
for  GUI  screen  to  be  created  using  a  drag  and  drop  technique.  The  function  writes  all  of 
the  computer  code  necessary  to  create  the  desired  screen.  The  developer  needs  only  to 
attach  the  necessary  functions  to  the  screen  code.  Also  in  Lapacik’ s  thesis  [Ref.  7]  is  a 
detailed  discussion  of  the  variable  and  file  naming  structures.  Every  attempt  has  been 
made  to  maintain  these  conventions. 

B.  STABILITY  AND  CONTROL  INPUT  SCREENS 

The  Stability  and  Control  input  screens  were  developed  in  conjunction  with 
William  L.  Hucke,  and  served  as  an  invaluable  learning  tool  and  “pass  down”.  During 
this  process,  the  general  structure  of  the  JANRAD  program  was  learned  and  instruction 
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was  given  as  to  the  use  of  the  GUIDE®  function  in  MATLAB®.  An  explanation  of  the 
development  of  these  screens  can  be  found  in  Hucke’s  thesis  [Ref.  8]. 

Once  the  input  screens  were  created,  the  variables  entered  were  structured  so  they 
could  be  passed  to  the  appropriate  M-files  for  computation.  The  program  was  then  tied  to 
the  portion  of  JANRAD  written  by  Walter  M.  Wirth  [Ref.  3]  for  the  stability  derivative 
computation. 

Output  screens  were  created  to  display  the  linear  matrix  state  equation  A  and  B 
matrices  and  a  time  -  frequency  analysis  screen  was  created. 
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in.  HOVER  FLIGHT  CONDITION 


A.  THE  EXISTING  CODE 

The  existing  JANRAD  Stability  and  Control  Module  produced  a  linear  state 
space  model  of  the  helicopter.  It  utilized  the  trim  solution  from  the  Performance  module 
as  the  starting  point  for  its  calculations  and  then  varied  gross  weight  to  obtain  the 
necessary  stability  derivatives.  A  detailed  explanation  of  the  method  used  can  be  found 
in  Wirth’s  thesis  [Ref.  3]. 

B.  MODIFICATIONS 

The  only  modifications  to  this  portion  of  the  program  were  to  add  the  graphical 
user  interface  to  the  input  screens  and  create  a  screen  to  monitor  the  progress  of  the 
program.  The  input  screens  were  created  in  conjunction  with  William  Hucke  and  served 
as  an  effective  means  of  learning  the  intricacies  of  the  MATLAB  program.  Once  the 
screens  were  created  the  variables  were  structured  and  passed  to  the  subroutines  created 
by  Walter  M.  Wirth  [Ref.  2]. 

A  progress  screen  was  created  to  aid  the  user  in  determining  what  the  program 
was  doing  and  also  serves  to  ensure  that  the  program  has  not  “locked  up”  on  a  particular 
calculation.  This  screen  is  similar  to  the  screen  created  in  the  Performance  Module. 

Once  the  stability  derivatives  have  been  obtained,  the  A  and  B  matrices  are 
constructed.  The  matrices  obtained  in  this  manner  seemed  to  agree  well  with  that  of  the 
example  helicopter  given  in  Prouty’s  book.  A  detailed  comparison  of  the  output 
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generated  by  JANRAD  and  that  given  by  Prouty  for  his  example  helicopter  is  given  in  a 
later  section.  Because  the  output  agreed  well  with  known  quantities,  this  method  was 
applied  to  the  forward  flight  regime.  [Ref.  9] 
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IV.  FORWARD  FLIGHT  CONDITION 


A.  EXISTING  CODE 

The  forward  flight  regime  was  initially  modified  in  exactly  the  same  manner  as 
the  hover  regime.  The  same  input  screens  were  used,  but  a  logical  branch  was  set  in  the 
program  to  access  the  forward  flight  subroutines  if  the  airspeed  entered  was  above  40 
knots.  The  stability  derivatives  were  evaluated  in  the  same  manner  by  varying  about  the 
nominal  trim  condition.  However,  the  trim  condition  was  perturbed  by  making  small 
variations  to  the  airspeed  as  opposed  to  the  gross  weight,  as  in  the  hover  case.  The  A  and 
B  matrices  were  again  constructed. 

B.  PROBLEMS  ENCOUNTERED 

When  the  A  and  B  matrices  were  compared  to  known  values  of  the  example 
helicopter  given  by  Prouty  [Ref.  9],  it  was  determined  that  the  two  were  inconsistent. 
Therefore  an  extensive  troubleshooting  effort  was  launched.  The  code  was  run  repeatedly 
to  determine  if  some  programming  error  had  been  made  with  the  addition  of  the  GUI 
screens.  Wirth’s  thesis  [Ref.  3]  was  used  to  verify  the  values  obtained  in  the  new  hover 
regime,  but  an  example  for  the  forward  flight  case  was  not  given. 

C.  IDENTIFING  THE  SOURCE  OF  THE  ERROR 

The  main  rotor  derivatives  and  tail  rotor  derivatives  are  calculated  using  the 
formulas  provided  by  Prouty.  All  of  these  formulas  are  functions  of  the  rotor  derivatives 
in  forward  flight  obtained  by  Prouty  through  charts  given  in  his  book.  These  terms 
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involve  the  partial  derivatives  of  Cj/a,  Ch/g,  Cq/g^u,  bis  with  respect  to  (i  ,0o,  and  X’. 
[Ref.  9] 

These  charts  are  not  available  to  JANRAD  and  the  correct  values  for  these  partial 
derivatives  can  not  be  obtained  simply  by  varying  the  airspeed  about  the  trim  condition. 
Each  time  the  aircraft  is  perturbed  by  varying  the  airspeed,  [i  is  directly  effected  as  an 
input  to  the  program.  However,  the  new  trim  solution  produces  new  values  for  0o  and  X’, 
thereby  producing  some  kind  of  convoluted  values  for  the  derivatives  of  Cr /g,  Ch/g, 
Cq/g,  ais,  bis. 

A  method  was  devised  to  vary  each  of  the  three  parameters  (|i  ,0o,  and  X’) 
separately  while  holding  the  other  two  constant.  In  this  way,  the  fifteen  specific  partial 
derivatives  could  be  obtained. 

D.  IN  SEARCH  OF  THE  SOLUTION 

The  first  attempt  was  to  find  a  closed  form  solution  for  each  of  these  derivatives. 

A  NACA  Technical  Note  written  by  Kenneth  B.  Amer  and  F.  B.  Gustafson  entitled 
“Charts  for  Estimation  of  Longitudinal  Stability  Derivatives  for  a  Helicopter  Rotor  in 
Forward  Flight”  [Ref.  10]  was  found.  While  some  equations  were  given  for  the  necessary 
stability  derivatives,  a  chart  was  still  needed  to  determine  specific  values  for  several  of 
the  variables.  This  was  determined  to  be  no  better  than  Prouty’s  [Ref.  9]  method  of  using 
the  charts  in  his  book  directly  to  obtain  the  necessary  values.  Thought  was  given  to 
converting  these  charts  to  tables  and  then  having  the  program  do  a  table  look  up  to 
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determine  the  values,  but  it  was  determined  that  this  would  be  far  too  time  consuming 
and  too  specified  to  be  of  any  real  value. 

E.  THE  SOLUTION 

Finally  it  was  determined  that  the  appropriate  method  for  obtaining  these  stability 
derivatives  was  to  vary  each  parameter  independently.  While  this  may  seem  like  an 
obvious  choice,  it  proved  to  be  a  complicated  one,  because  the  many  assumptions  that 
had  to  be  made.  Many  of  the  values  used  by  the  program  are  not  explicit  functions  of 
each  parameter,  and  therefore  a  determination  had  to  be  made  for  each  variable  in  the 
program  on  the  effect  of  changing  these  parameters  independently. 
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V.  PROUTY’S  CHART  METHOD  FOR  DETERMINING  FORWARD  FLIGHT 
STABILITY  DERIVATIVES  [REF.  9] 


A.  THE  THEORY 

The  following  rotor  derivatives  are  needed  to  compute  the  stability  derivatives 
that  define  the  linear  state  space  model  of  the  helicopter  (see  Prouty’s  book  [Ref.  9]  for 
and  explanation  of  each  variable): 
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To  determine  the  values  for  these  derivatives,  Prouty  uses  what  is  known  as  the 
graphical  method,  utilizing  the  Rotor  Performance  charts  given  in  Chapter  IH  of  his  book. 
These  charts  where  originally  developed  by  M.C.  Cheney  at  Lockheed.  The  charts  were 
generated  using  a  computer  program  that  used  the  equations  described  in  Chapter  III  of 
Prouty’s  book.  The  charts,  while  based  on  a  series  of  arbitrarily  selected  rotor 
parameters,  are  reported  to  be  flexible  enough  to  be  used  for  rotors  of  various  parameters. 
[Ref.  9] 

By  entering  the  charts  at  the  trim  values  and  varying  each  parameter 
independently,  the  rotor  derivatives  can  be  obtained.  The  following  is  a  detailed 
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B.  STEP  BY  STEP  DETERMINATION  OF  ROTOR  DERIVATIVES 

The  values  of  the  parameters  at  the  trim  condition  must  first  be  determined. 
Prouty  [Ref.  9]  gives  the  following  values: 

(X=.30  00=  13.5°  fc’=  0.23 

fx  is  defined  as  the  tip  speed  ratio,  0O  is  the  trim  collective  pitch  angle  and  X’  is 
the  inflow  parameter  with  respect  to  the  tip  path  plane.  To  determine  the  value  for  the 
partial  derivatives  with  respect  to  (X  use  the  charts  for  (1=0.25  and  p=0.35.  These  values 
correspond  to  small  perturbations  around  the  trim  value  of  |x.  The  charts  are  plotted 
against  Ct/g ,  so  this  is  used  as  the  intermediate  variable. 

Step  one  is  to  enter  the  chart  of  V  vs.  Ct/g  for  jx=0.25.  Find  and  record  the  value 
of  Ct/g  for  the  trim  values  of  X’  and  0O.  Step  two  is  to  enter  the  chart  of  Cq/o  vs.  Ct/g. 
Find  and  record  the  value  for  Cq/g  for  the  just  determined  value  of  Ct/g  and  the  trim 
value  0o.  Do  the  same  for  Ch/g,  ais  and  bis,  always  using  the  trim  value  for  0O  and  the 
determined  value  for  Ct/g.  Repeat  this  procedure  using  the  (1=35  charts. 

To  determine  the  values  for  the  partial  derivatives,  simply  take  the  difference 
between  the  determined  values  for  the  variables  and  divide  by  the  difference  of  the 
parameters.  For  example: 

dCr  /  a  ^  =  0-35) -§•(/<  =  025) 
dfi  0.35-0.25 

The  partial  derivatives  with  respect  to  0O  and  V  can  be  determined  in  the  same 
manner.  Using  this  method  all  fifteen  of  the  rotor  derivatives  can  be  determined 
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C.  PUTTING  IT  ALL  TOGETHER 


Once  all  of  the  non-dimensional  rotor  derivatives  have  been  obtained,  the 
formulas  given  in  Prouty’s  book  [Ref.  9]  are  used  to  determine  the  Main  Rotor 
Derivatives.  These  are  then  combined  with  the  tail  rotor,  horizontal  stabilizer,  vertical 
stabilizer,  and  fuselage  derivatives  to  obtain  the  Total  Forward  Flight  Derivatives.  These 
are  then  used  in  the  helicopter  equations  of  motion  to  construct  the  linear  model. 
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VL  JANRAD’S  METHOD  FOR  DETERMINING  FORWARD  FLIGHT  MAIN 

ROTOR  DERIVATIVES 


A.  THE  THEORY 

JANRAD’s  approach  is  to  perturb  each  of  the  parameters,  |i,  0o,  A,’,  independently 
and  compute  the  values  for  the  variables  Cj,  Ch,  Cq,  ais,  and  bis.  This  is  exactly  the  same 
method  that  Prouty  [Ref.  9]  uses,  however,  instead  of  using  charts,  JANRAD  computes 
the  values  for  each  variable  specifically.  A  separate  subroutine  for  varying  each 
parameter  was  written  due  to  the  differing  assumptions  that  had  to  be  made  for  each  case. 
Each  subroutine  both  increases  and  decreases  its  parameter  from  the  trim  value  and 
computes  a  value  for  each  variable.  A  vector  for  the  values  of  the  parameters  and  a 
vector  for  each  of  the  variables  is  created. 

These  vectors  are  passed  to  a  subroutine  that  creates  a  first  order  curve  and  then 
computes  the  derivative  of  the  curve.  The  slope  of  the  curve  at  the  trim  value  is  then 
computed  and  this  is  used  as  the  rotor  derivative. 

The  procedure  is  simplistic,  however  many  assumptions  had  to  be  made  as  to 
which  variables  in  the  trim  routine  had  to  be  held  constant  and  which  had  to  be  allowed  to 
vary.  The  following  section  discusses  the  assumptions  made  and  the  criteria  for  various 
variables  in  the  trim  routine. 

B.  THE  COMPUTATION 

The  general  structure  of  each  subroutine  is  the  same  and  is  modeled  after  the 
Trim.m  subroutines  written  for  the  Performance  Module.  The  entire  subroutine  is 
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written  as  a  loop  that  is  run  three  times,  once  for  a  value  for  the  parameter  below  the  trim 
value,  once  for  the  trim  value  of  the  parameter  and  once  for  a  value  above.  The  necessary 
aerodynamic  terms  are  computed,  the  required  lift,  tip  path  plane  angle,  required  thrust, 
coning  angle,  etc.  The  Tmcalc.m,  Thrcalc.m,  and  Dmcalc.m  subroutines  written  for  the 
performance  model  are  called  once  which  gives  the  values  for  thrust,  drag  and  torque  of 
the  rotor.  Gr,  Ch,  Cq,  are  then  computed  directly  using  there  respective  defining 
equations.  Each  of  these  M-files  are  run  only  once  rather  than  several  times  in  an 
iterative  process  as  in  the  trim  case  for  the  Performance  Module.  A  detailed  description 
of  how  these  M-files  are  structured  can  be  found  in  Nicholson’s  thesis  [Ref.  1].  The 
values  for  ais  and  bis  are  computed  directly  from  explicit  formulas.  The  following 
assumptions  were  made  in  each  subroutine. 

1.  Tip  speed  ratio  (i 

Stab_calc_mu.m  is  the  name  of  the  M-file  that  calculates  the  variables 
while  varying  the  parameter  [1.  Varying  the  airspeed  by  15%  in  either  direction, 
effectively  varies  the  parameter  |l.  No  assumptions  have  to  be  made,  and  therefore  the 
subroutine  runs  very  similarly  to  the  trim  routine,  except  that  it  is  only  run  once  and  no 
adjustment  to  the  collective  pitch  is  made. 

2.  Collective  Pitch  0o 

Stab_calc_to.m  is  the  name  of  the  M-file  that  calculates  the  variables 
while  varying  the  parameter  0q.  0o  is  varied  by  one  degree  in  either  direction.  The 
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calculation  for  the  coning  angle  is  computed  as  a  function  of  the  change  in  0o  by  the 
following  equation: 

yS  =  /£-(A0*(f)) 

This  method  for  determining  the  coning  angle  is  necessary  because  the  original 
Trim.m  routine  varies  |3  as  a  function  of  (I.  If  p  is  held  constant  then  (3  would  be  held 
constant  and  erroneous  values  for  the  parameters  would  be  obtained.  By  varying  the 
coning  angle  as  a  function  of  collective  pitch  change  allows  for  the  proper  determination 
of  the  variables. 


3.  Inflow  ratio  with  respect  to  tip  path  plane  X’ 

Stab_calc_la.m  is  the  name  of  the  M-file  that  calculates  the  variables 

while  varying  the  parameter  X\  The  inflow  ratio  was  varied  by  50%  in  either  direction. 
The  tip  path  plane  was  held  constant.  The  coning  angle  was  varied  according  to  the 
following  equation: 


) 


P  again  had  to  be  varied  as  a  function  of  inflow  angle  which  is  a  function  of  V  for  the 
same  reasons  as  stated  above. 


C.  TAIL  ROTOR  DERIVATIVES 

Due  to  the  small  variations  in  the  derivatives  for  the  tail  rotor,  and  it’s  overall 

contribution  to  the  total  stability  derivatives  JANRAD  does  not  compute  tail  rotor 
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derivatives  in  the  same  manner  as  the  main  rotor  derivatives.  While  Prouty  [Ref.  9] 
alludes  that  the  chart  method  can  be  used  to  determine  the  tail  rotor  derivatives,  JANRAD 
simply  uses  closed  formed  solutions  for  these  parameters. 

D.  FUESELAGE  DERIVATIVES 

The  fuselage  derivatives  are  hard  wired  into  the  program  using  the  charts  given 
for  the  Prouty  Example  Helicopter  in  Appendix  A  of  his  book.  These  should  be 
acceptable  for  most  normally  configured  helicopter  designs.  If  however  it  is  determined 
that  these  values  differ  greatly  from  the  Prouty  curves,  then  the  Cbodygrp.m  M-file  must 
be  modified,  to  reflect  the  appropriate  values.  [Ref.  9] 

E.  THE  REST  OF  THE  COMPUTATIONS 

A  detailed  description  of  the  rest  of  the  Stability  and  Control  Module  is  explained 
in  detail  in  Walter  M.  Wirth  Jr.’s  thesis  [Ref.  3].  The  computations  differ  only  in  the 
areas  mentioned  previously. 

F.  THE  RESULTS 

Once  the  stability  derivatives  are  determined,  JANRAD  uses  the  same  equations 
from  Prouty’ s  book  to  determine  the  Total  Forward  Flight  Derivatives  and  to  construct 
the  linear  mode.  A  detailed  analysis  of  the  results  of  JANRAD  as  compared  to  Prouty’s 
for  his  example  helicopter  are  given  in  a  later  section.  [Ref.  9] 
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VII.  OUTPUT 


A.  THE  LINEAR  MODEL  SCREEN 

The  first  screen  that  appears  after  the  calculations  are  complete  allows  the  user  to 

see  the  actual  A  and  B  matrices  and  also  indicates  the  vector  for  the  states,  and  the  inputs, 
Figure  3. 
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Figure  3.  Linear  Model  of  Helicopter  Window 
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From  this  point  the  user  can  decide  to  save  his  output  to  a  file,  change  input 
parameters  an  re-run  the  calculations,  or  proceed  the  time  and  frequency  response  screen. 


The  A  matrix  is  an  8  X  8  matrix  containing  constants  that  completely  describes 
the  linear  approximations  to  the  equations  of  motion  of  the  aircraft.  The  B  matrix  is  a  4 
X  8  matrix  that  describes  the  relationship  between  the  input  from  the  pilot  controls  and 
the  input  to  the  modeled  system.  With  this  B  matrix  a  collective,  cyclic,  or  directional 
input  can  be  specified  to  the  pilot  controls  and  the  appropriate  rigging  compensation  are 
automatically  made. 

B.  TIME  AND  FREQUENCY  RESPONSE  SCREEN 

The  Time  and  Frequency  Response  screen  allows  the  user  to  analyze  the  response 
of  the  helicopter  to  specified  inputs,  Figure  4. 
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Figure  4.  Time  and  Frequency  Response  Window 
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Step  or  impulse  inputs  can  be  simulated  in  either  the  collective,  cyclic,  or 
directional  channels  and  responses  of  any  of  the  eight  states  can  be  observed.  Figure 
5  is  an  example  of  one  of  the  output  plots  generated  for  the  response  of  role  rate  to  a 
lateral  cyclic  step  input. 


time  (sec) 

Figure  5.  Example  of  Step  Response  Output  Plot 

A  frequency  analysis  can  also  be  obtained  by  specifying  Bode  plots.  In  this 
manner,  the  Bode  plots  for  each  channel  can  be  generated.  Figure  6  is  an  example  of  a 
Bode  plot  for  the  system  between  roll  rate  an  lateral  cyclic  input 
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Response  of  Roll  Rate  (p)  to  Lateral  Cyclic  Input 


Figure  6.  Example  of  Bode  Plot  Output 


A  stability  analysis  can  be  performed  by  specifying  eigenvalues.  This  option 
generates  and  plots  the  eigenvalues  of  the  A  matrix  which  are  the  poles  of  the  system. 
The  coupled  eigenvalues  along  with  the  decoupled  lateral  and  longitudinal  eigenvalues 
can  be  viewed  in  graphical  form.  Figure  7  is  an  example  of  a  plot  of  the  coupled 
eigenvalues.  If  the  numerical  values  are  desired,  or  a  more  detailed  stability  analysis  is 
needed,  the  user  can  load  the  output  file  containing  the  A  and  B  matrices  at  the  command 
line  or  create  a  unique  M-file  to  generated  specific  analyses. 
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Figure  7.  Example  of  Eigenvalue  Output  Plot 
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VIII.  COMPARISON  WITH  KNOWN  HELICOPTER  MODELS 


A.  PROUTY’S  EXAMPLE  HELICOPTER  IN  A  HOVER 

Prouty  [Ref.  9]  gives  the  characteristic  equation  of  the  longitudinal  motion  for  his 

example  helicopter  in  his  book.  An  extensive  analysis  of  the  lateral  motion  of  the 

helicopter  in  this  regime  is  not  performed,  therefore  the  comparison  for  the  hover  mode 

will  be  done  only  in  the  longitudinal  direction.  The  following  are  the  characteristic 

equations  for  the  example  helicopter  in  a  hover. 

Prouty:  5  4  +  1.0253  +  0.2b 2  +0.125 +.034  =  0 
JANRAD :  5 4  + 1 . 1 1 35 3  +  0.22795 2  +  0. 1 3835  +  .0374  =  0 

While  the  coefficients  of  the  polynomial  to  not  match  exactly  they  are  very  close. 

A  more  intuitive  method  for  comparing  the  two  systems  is  to  observe  the  eigenvalues. 

Figure  8  plots  the  roots  of  the  above  equations,  which  are  the  eigenvalues  of  each  system 

as  given  below: 

Prouty:  Si=  -0.28,  s2=  .076+0.360,  S3  =  0.076  -  0.360i,  S4=  -0.89 

JANRAD:  Si=  -0.2704,  s2=  .0713+0.36791,  s3  =  0.0713  -  0.36791,  s4=  -0.9851 
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Eigenvalues  of  Longitudinal  Equations  for  the  Prouty  Example  Helicopter  in  a  Ho\ar 
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Figure  8.  Eigenvalues  of  Longitudinal  Equations  in  a  Hover 

A  quick  glance  at  the  plot  will  tell  you  how  well  JANRAD  is  performing.  The 
eigenvalues  for  the  two  systems  are  very  close.  The  dominant  poles  (A  and  B)  in  each 
case  lie  very  close  to  each  other,  providing  similar  response  in  the  time  domain. 

B.  PROUTY’S  EXAMPLE  HELICOPTER  IN  FORWARD  FLIGHT 

The  analysis  for  the  forward  flight  regime  is  broken  into  the  longitudinal  and 
lateral  cases.  While  a  coupled  response  analysis  can  be  done,  decoupling  the  equations 
will  emphasize  the  similarities  and  differences  between  Prouty’ s  [Ref.  9]  numbers  and 
JANRAD’ s  and  will  also  allow  for  easier  determination  of  the  effected  channels.  The 
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results  from  the  forward  flight  mode  do  not  compare  as  well  as  for  the  hover  regime. 
This  is  due  to  the  difficulty  of  the  determination  of  the  rotor  derivatives.  However,  as 
this  program  is  to  be  used  only  for  preliminary  design,  it  has  been  determined  that  the 
numbers  correspond  well  for  this  purpose. 

1.  Lateral  Motion 

The  following  are  the  characteristic  equations  for  the  lateral  motion  of  the 

example  helicopter  at  1 15  knots. 

Prouty:  s4+8.460s3  -17.68s 2  +  45.54s +  2.2548  =  0 
JANRAD:  s4  +9.341  Is3  +20.6391s2  +  57.7401s +  1.6851  =  0 

Figure  9  plots  the  roots  of  the  above  equations,  which  are  the  eigenvalues 
of  each  system  as  given  below: 

Prouty:  Si=  -6.602,  S2=  - 0.784 1+2.43 17i,  S3  =  - 0.7841-2.43 17i,  S4=  -0.05058 

JANRAD:  si=  -  7.6237,  s2  -  0.8441+  2.6044i,  s3  =  -  0.8441-2.6044i,  s4=  -0.0295 
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Eigenvalues  of  Lateral  Equations  for  the  Prouty  Example  Helicopter  at  115  knots 
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Figure  9.  Eigenvalues  for  Lateral  Motion  in  Forward  Flight 

This  plot  will  again  tell  you  how  well  JANRAD  is  performing.  The 
dominant  poles  (A  and  B)  in  each  case  lie  very  close  to  each  other,  providing  similar 
response  in  the  time  domain.  Figure  10  plots  a  time  history  for  the  response  of  yaw  rate 
to  an  impulse  pedal  input  using  the  uncoupled  lateral  equations.  It  is  evident  that  the  two 
systems  have  very  similar  time  histories. 
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Time  History  for  Response  of  Yaw  Rate  to  Impulse  Pedal  Input  (uncoupled) 


Figure  10.  Time  History  Comparison 


2.  Longitudinal  Motion 

The  following  are  the  characteristic  equations  for  the  longitudinal  motion 

of  the  example  helicopter  at  1 15  knots: 

Prouty :  5  4  +  1.54553  -2.6b2  +0.02885+0.0949  =  0 
JANRAD:  5 4  +  1.86375s  -4.761452  +0.11085  +  0.08500  =  0 

Figure  11  plots  the  roots  of  the  above  equations,  which  are  the 
eigenvalues  of  each  system  as  given  below: 

Prouty:  Si=  -2.907,  S2=  -0.1710,  S3  =  0.1828,  S4=  1.085 
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JANRAD:  s1=  -3.2958,  s2=  -0.1418,  s3  =0.1255,  s4=  1.4484 


Eigenvalues  of  Longitudinal  Equations  for  the  Prouty  Example  Helicopter  at  115  knots 
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Figure  11.  Eigenvalues  for  Longitudinal  Motion  in  Forward  Flight 
C.  HANDLING  QUALITIES 

The  charts  in  Appendix  B  show  how  the  handling  qualities  of  the  Prouty  example 
helicopter  [Ref.  9]  using  the  model  given  in  his  book  compare  to  that  computed  using 
JANRAD.  It  graphically  depicts  the  validity  of  the  JANRAD  program. 
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IX.  CONCLUSIONS  AND  RECOMENDATIONS 


A.  CONCLUSIONS 

The  ability  to  produce  a  linear  model  of  a  helicopter  for  stability  and  control 
analysis  is  an  invaluable  tool  in  the  design  process.  With  the  development  of  the 
JANRAD  Stability  and  Control  Module,  the  generation  of  this  linear  model  has  become 
as  easy  as  entering  a  few  parameters  and  pressing  a  few  buttons.  The  user  can  modify  any 
one  of  the  various  inputs  and  re-compute  the  model  in  a  matter  of  minutes.  In  this  way, 
many  different  configurations  can  be  obtained  and  the  one  best  suited  for  the  particular 
application  can  be  selected. 

It  has  been  shown  that  the  solutions  produced  by  JANRAD  match  closely  with 
those  presented  by  Prouty  in  his  book  [Ref.  9].  While  the  techniques  used  to  compute  the 
stability  derivatives  are  very  similar,  the  method  for  computing  the  terms  comprising 
these  values  differs  greatly.  This  fact  only  lends  to  further  trust  that  the  values  produced 
by  both  Prouty  [Ref.  9]  and  JANRAD  are  correct. 

The  output  screens  created  enable  the  user  to  quickly  and  easily  evaluate  the 
response  of  his  design.  Again,  changes  can  quickly  be  made  and  the  analysis  repeated  to 
ensure  the  best  possible  design. 

With  the  evolution  of  the  Stability  and  Control  Module  of  JANRAD  the 
helicopter  designer  can  concentrate  on  design  rather  that  spending  time  devising  a  means 
of  analysis. 
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B.  RECOMMENDATIONS 

Due  to  the  time  limitations  and  the  necessity  to  redesign  the  method  for 
computation  of  the  stability  derivatives  the  Rotor  Dynamics  Module  of  JANRAD  was  not 
developed.  The  development  of  this  module  and  the  addition  of  it  to  JANRAD  would 
greatly  enhance  the  design  process.  It  can  easily  be  added  to  JANRAD  from  the  Options 
screen. 

While  the  Performance  module  originally  was  designed  for  fan  in  tail  and 
NOTAR  capabilities,  somewhere  in  the  design  process  this  function  has  been  abandoned. 
Not  only  does  the  Stability  and  Control  module  not  support  it,  but  the  Performance 
Module  has  also  lost  this  capability.  A  warning  screen  has  been  created  to  prevent  the 
user  from  attempting  this  type  of  design. 

Finally,  due  to  the  lack  of  another  valid  linear  model  of  a  different  helicopter,  only 
Prouty’s  example  helicopter  was  used  to  verify  the  output.  In  order  to  ensure  that  the 
output  is  valid  for  a  variety  of  configurations,  the  program  should  be  compared  with  other 
known  linear  models. 
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APPENDIX  A.  USER’S  GUIDE 


The  JANRAD  version  6.0  Users  Guide  is  written  as  a  brief  introduction  to  the 
Joint  Army/Navy  Rotorcraft  Analysis  and  Design  computer  program.  It  is  intended  to 
explain  the  basic  features  and  operation  of  the  program  and  assumes  a  basic  knowledge  of 
helicopter  mechanics  and  the  use  of  the  MATLAB®  programming  language  by  The 
MathWorks®  Inc. 

A.  SYSTEM  REQUIRMENTS 

JANRAD  version  6.0  requires  MATLAB®  version  5.0  or  MATLAB  Student 
Edition  version  5.0  or  higher.  It  will  not  run  on  any  previous  versions.  JANRAD  version 
6.0  will  fit  on  a  single  1.44  MB  floppy  disk  and  will  need  that  much  memory  available  for 
installation.  JANRAD  requires  only  the  hardware  to  support  MATLAB®  6. 

B.  INSTALLATION 

The  recommended  installation  of  JANRAD  version  6.0  is  accomplished  by  first 
creating  a  subdirectory  of  MATLAB  called  JANRAD.  The  entire  contents  of  the 
JANRAD  version  6.0  floppy  disk  should  be  copied  into  this  directory.  Include  all  M-files 
and  .mat  files.  JANRAD  version  6.0  will  not  run  without  all  of  the  .mat  files. 

It  is  recommended  that  this  new  subdirectory  be  added  to  the  MATLAB  5  search 
path.  This  procedure  will  eliminate  the  need  to  change  the  working  directory  from  the 
command  line  each  time  JANRAD  version  6.0  is  run  and  allows  you  to  work  from  a 
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floppy  disk  if  desired.  Adding  the  subdirectory  to  the  search  path  is  accomplished  by 
selecting  File ,  Set  Path...  from  the  File  menu.  Change  the  current  directory  to  the  new 
Janrad98  subdirectory  by  using  the  Browse  button.  Then  press  the  Add  to  Path  push 
button.  You  will  then  be  given  the  option  to  save  the  new  path  or  just  use  the  new  path 
for  the  active  session.  It  is  recommended  to  save  this  path.  Figure  A.l  shows  the 
MATLAB®  Path  window. 


MATLAB  Path 


'  Current  Director 


1  c:\mallab\janrad98 


if@ii 


c:  \matiab\tanrad93 


c:\matlab\gui  examples 
c:\maHab\toolbox\matlab\datafun 
c:\matlab\toolbox\matlab\datatypes 
c:  \matlab\toolbox\matlab\dde 
c:  \matlab\toolbox\matlab\demos 
c:  \matlab\toolbox\matlab\elfun 
c:\matlabMoolbox\maHab\elmat 
c:  \matlab\toolbox\matlab\funfun 
c:\matlab\toolbox\matlab\general 
c:\matlab\toolbox\matlab\graph2d 
c:\matlab\tooIbox\matlab\graph3d 
c:\matlab\toolbox\matiab\graphics 
c:  \matlab\toolbox\matlab\iof  un 
c:  \matlabMoolbox\matlab\lang 
c:  \matlabMoolbox\mat!ab\matfun 

-..V-.  . 


Reiir>ic8vad98 


|UI 

3 


about_janrad.m 

I . |j£j  abouUanrad.mat 

| . |§j  analysis.m 

. [iSJ  analysis,  mat 

; analysis  Jen.  m 

. [3]  create_new.mat 

j . @)  DMCALC.M 

. 0)  empty_  boxes,  m 

. [3]  empty_boxes.mat 

I . h60.mat 

. [3|  h-80.mat 

. [ItJ  h60_p.mat 

. [sj  h-60_p.mat 

i . @  hBOver.mat 

. |ij  hGOveLp.mat 

...L  17>  f  it  in^ri  r>r\  %  * 

adtssSzaLi 


BEES 


leroove  from  Path 


Save  Settings 


RestegeDefat^s..,  j 


dose 


Jv:  /  j:, 

'  ivV 


Figure  A.  1.  MATLAB  5  Path  Window 


C.  STARTING  JANRAD  VERSION  6.0 

Typing  janrad98  (lowercase,  one  word)  at  the  command  line  prompt  of  a  current 
MATLAB  session  starts  JANRAD  version  6.0.  This  action  will  launch  the  JANRAD 
version  6.0  welcome  window  shown  in  Figure  A.2. 
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Figure  A.  2.  JANRAD  version  6.0  Start  Up  Window 
D.  PERFORMANCE  MODULE 

As  an  example,  the  use  of  this  program  will  be  demonstrated  by  selecting  a 
previously  saved  input  data  file  and  changing  the  weight,  airspeed  and  pressure  altitude. 
User  defined  blade  elements  and  blade  twist  will  be  entered.  Tail  rotor  parameters  will  be 
verified  but  not  changed.  The  input  and  output  files  will  be  saved  and  printed.  After  the 
performance  analysis  is  complete,  we  will  then  iterate  on  airspeed  from  80  to  100  knots  in 
increments  of  5  knots. 

First,  from  Figure  A.2,  select  the  Edit/Run  Existing  File  radio  button.  It  is  usually 
easier  to  edit  an  existing  file  because  Create  New  File  will  not  give  you  the  chance  to 


change  the  working  directory  if  desired.  Once  the  selection  has  been  made,  press  the 
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Figure  A.  3.  Selecting  a  File  to  Edit 


The  next  figure  window  to  appear  is  shown  in  Figure  A.3.  This  window  allows 
you  to  change  the  working  directory  and  select  an  input  data  file.  To  change  the 
directory,  type  or  edit  the  desired  path  in  the  edit  box.  All  of  the  .mat  files  listed  in  the 
working  directory  are  displayed  in  the  list  box.  Input  data  files  are  saved  as  filename. mat. 
A  note  of  caution  here,  each  GUI  window  also  has  an  associated  guifilename.mat  file. 
The  user  should  name  input/output  data  files  using  helicopter  aircraft  designations  such  as 
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UH_60A,  h_99  or  h  _designl  to  differentiate  from  JANRAD  version  6.0  GUI  files.  Next, 
select  an  input  file  to  edit  by  clicking  on  the  file  name.  For  this  example,  we  will  edit  the 
UH_60A.mat  file.  Then  press  Continue  ». 

The  Performance  Input  window  will  be  displayed  as  in  Figure  A.4.  The  input  data 
will  be  displayed  within  the  appropriate  edit  boxes.  Any  or  all  of  the  parameters  can  be 
changed  at  this  point  without  altering  the  original  data  file.  You  will  have  the  opportunity 
to  save  the  new  data  if  you  chose  after  the  analysis  has  been  completed. 


The  airspeed,  weight  and  pressure  altitude  can  be  edited  by  highlighting  and 
typing  100,  17,000  and  2,000  in  the  respective  edit  boxes.  Pressing  the  enter  key  is  not 
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necessary  to  enter  the  new  value.  Using  the  Tab  key  or  clicking  on  another  edit  box  or 
control  will  enter  any  changes.  If  the  user  wishes  to  mesh  airfoils,  click  the  Blade  Airfoil 
Type  scroll  bar,  and  select  Airfoil_Mesh.  The  Begin  Mesh  at  (r/R)  box  will  be  enabled 
and  a  value  may  be  entered.  At  this  point,  select  both  the  non  linear  blade  twist  and 
uneven  blade  element  spacing  blocks.  Note  that  the  blade  twist  and  number  of  blade 
element  boxes  are  disabled.  The  Print  Screen  button  will  print  a  draft  copy  of  the  GUI 
window  with  the  displayed  values  if  desired.  It  however,  will  not  record  the  file  name  for 
which  the  values  are  stored.  Now  press  the  Continue  »  button. 

From  the  Performance  Input  window,  JANRAD  version  6.0  will  call  the 
Compound  Helicopter  and  Tail  Rotor  Parameters  window.  Figure  A.5.  In  our  example 
we  are  dealing  with  a  conventional  helicopter,  therefore  no  wing  or  auxiliary  thrust  is 
present.  We  do,  however,  need  to  verify  the  tail  rotor  parameters  which  have  been  either 
loaded  from  the  data  file  or  calculated.  The  parameters  will  be  entered  in  the  appropriate 
tail  rotor  type.  Press  OK  when  ready  to  continue. 
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Figure  A.  5.  Enter  Compound  Helicopter  and  Tail  Rotor  Parameters 


With  either  non-linear  blade  twist  or  uneven  blade  element  spacing  selected, 
JANRAD  version  6.0  will  next  go  to  the  Blade  Element  page,  shown  in  Figure  A.6. 
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Figure  A.  6.  Enter  Uneven  Blade  Elements  &  Non  linear  Blade  Twist 


The  grip  ratio  contained  in  the  loaded  data  file  will  automatically  be  displayed 
along  with  the  effective  blade  radius.  The  user  can  enter  up  to  twenty  blade  elements  and 
the  corresponding  twists.  IMPORTANT!  Ensure  dimensions  are  entered  to  the  left  edge 
of  the  blade  element  from  the  blade  root.  JANRAD  version  6.0  will  automatically 
calculate  the  values  at  the  center  of  the  blade  elements.  Also,  do  not  enter  any  value 
greater  than  the  effective  blade  radius  or  an  error  message  will  appear.  After  entering  the 
desired  values  press  Continue. 
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Next,  JANRAD  version  6.0  will  call  the  Iteration  Method  window  as  shown  in 


Figure  A.7. 


Figure  A.  7.  Iteration  Method  /  Analysis  Window. 


JANRAD  version  6.0  will  call  its  computational  routines  from  this  window.  By 
choosing  No  Iteration  and  Analyze,  JANRAD  version  6.0  will  run  the  parameters  selected 
from  the  previous  window.  The  Analyze  pushbutton  initiates  the  computational  routines. 
All  controls  on  the  GUI  will  be  disabled  except  the  Interrupt  pushbutton.  The  Analysis 
Status  Box  will  display  the  performance  routine  status,  clock,  iteration  number,  and 
iteration  parameter  value  as  JANRAD  trims  the  rotor  and  adjusts  the  collective  and  cyclic 
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mathematically.  The  Interrupt  button  will  halt  the  routine  and  enable  the  Resume  control 
and  JANRAD  Options  menu  on  the  GUI.  This  will  allow  the  user  to  change  parameters, 
quit  or  return  to  beginning.  The  Resume  button  will  continue  with  the  performance 
routine  where  it  originally  interrupted.  It  is  worth  noting  that  the  Interrupt  button  will  not 
always  respond  immediately.  However,  once  MATLAB  finishes  its  current  line 
evaluation,  the  calculation  will  pause. 

The  Status  Box  will  inform  the  user  when  calculations  are  complete.  The 
Performance  Output  window  will  be  displayed  automatically.  The  Performance  Output 
window  shown  in  Figure  A.8  displays  the  performance  results.  These  results  can  be 
saved  and  the  screen  printed  from  this  window.  However,  it  is  recommended  to  print  the 
saved  input  and  output  files  through  the  next  window.  By  pressing  the  Options  »  push 
button,  the  saved  input  and  output  files  can  be  printed  simultaneously  and  in  a  more 
usable  format.  The  input/output  files  can  be  saved  after  activating  the  checkboxes, 
typing  a  file  name  and  pressing  the  Save  or  the  Options  »  push  buttons. 
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Figure  A.  8.  Performance  Output  Window 


The  Options  window  in  Figure  A.9  provides  the  capability  to  print  the  latest  files, 
go  to  create  plots  screens,  and  eventually,  select  additional  analysis  routines.  At  this  time 
however,  the  Stability  and  Control  and  Rotor  Dynamics  routines  have  not  been 
completed.  If  selected,  you  will  be  reminded  of  this  limitation. 

From  here,  we  will  go  back  to  calculate  performance  parameters  by  varying 
airspeed.  This  is  done  by  pressing  the  Change  Iteration  Method  radio  button  and  the 
Continue  »  push  button.  This  will  go  back  to  Figure  A.7.  To  vary  airspeed,  press  the 
Airspeed  radio  button  and  then  Analyze. 
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Figure  A.  9.  Options  Window. 


Figure  A.  10  shows  the  Iteration  Parameters  window.  For  example,  by  typing  80, 
100  and  5  in  the  appropriate  edit  boxes  and  selecting  Analyze,  the  performance  routine 
will  calculate  various  performance  results  with  respect  to  airspeed  varying  from  80  to  100 
knots.  Later,  the  user  will  be  able  to  create  plots  of  many  of  these  output  parameters. 
Note:  the  Aspect  Ratio  edit  box  and  HIGE  check  box  are  only  enabled  when  Altitude 
Iteration  or  Wing  Span  Area  is  selected. 
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Figure  A.  10.  Iterations  Parameter  Window. 


Figure  A.  1 1  shows  the  Create  Plots  screen  for  the  Airspeed  iteration  method.  Any 
or  all  of  the  plots  may  be  selected.  The  plots  are  created  and  minimized  as  JANRAD 
automatically  recalls  the  Options  window,  Figure  A.9.  Each  iteration  method  has  its  own 
create  plots  screen.  Some  plots  require  additional  user  input  prior  to  creating  them. 

Figure  A.  12  shows  an  example  airspeed  iteration  subplot.  These  plots  are 
primarily  used  to  examine  trade  off  studies  during  the  design  process. 
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The  M-file  create_plots.m  contains  the  code  for  all  of  the  iteration  method  create 
plot  screens.  If  any  additional  plots  are  desired,  changes  can  be  made  to  this  file. 
However,  the  plots  should  be  substituted  for  those  plots  already  existing,  and  the  existing 
code  should  be  commented  out,  not  removed.  Adding  plots  requires  changes  to  multiple 
files  for  proper  operation  and  should  not  normally  be  attempted.  Always  document 
changes  made  to  the  code  for  future  users. 


Figure  A.  12.  Example  of  Airspeed  Iteration  Output  Plot. 

E.  HINTS  FOR  JANRAD  VERSION  6.0  PERFORMANCE  MODULE 

The  following  paragraphs  list  some  recommendations  for  the  most  efficient  use 
of  JANRAD  VERSION  6.0.  They  are  a  guide  based  on  observation,  experience  and 
knowledge  of  the  code.  Any  other  recommendations  should  be  addressed  to  the 
Helicopter  Design  Instructor  at  the  Naval  Postgraduate  School  for  implementation  into 
the  next  version  of  JANRAD  version  6.0. 
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JANRAD  version  6.0  was  designed  for  robust  operations.  However,  because  this 
is  the  first  version  to  utilize  a  Graphical  User  Interface,  not  all  cases  of  user  inputs  have 
been  exercised.  If  the  program  appears  not  to  be  working  properly,  quit  JANRAD  using 
the  options  menu  available  on  all  but  the  first  window.  This  action  will  quit  JANRAD, 
close  all  MATLAB  figure  windows  and  clear  the  base  workspace.  Restart  JANRAD  by 
typing  janrad98  at  the  command  line. 

F.  STABILITY  AND  CONTROL  MODULE 

In  order  to  run  the  stability  and  control  portion  of  JANRAD  the  Performance 
Module  must  me  run  first.  WARNING:  The  analysis  must  be  done  in  the  No 
Iteration  mode  in  order  to  ensure  proper  calculation. 

Figure  A.  13  and  A.  14  show  the  first  screens  to  appear  if  the  Stability  and  Control 
box  is  clicked  on  the  Options  Screen,  Figure  A.9.  The  current  version  JANRAD  is  not 
configured  for  NOTAR  analysis,  therefore  zeros  should  be  entered  for  values  in  that 
section.  If  a  compound  helicopter  is  being  designed  then  the  wing  parameters  are  to  be 
entered,  if  not  then  enter  zeros  for  the  wing  values. 

Rigging  values  can  be  difficult  to  evaluate.  If  they  are  not  know  then  enter  a  value 
of  1.0  for  these  values.  This  will  not  effect  the  A  matrix,  however  the  B  matrix  will  be 
effected.  Entering  a  value  of  1.0  will  result  in  a  one  to  one  correlation  of  input  from  the 
controls  to  the  input  to  the  system. 
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Figure  A.  13.  Stability  and  Control  Parameter  Page  1. 


All  of  the  required  dimensions  are  listed  in  the  figure  and  page  numbers  for 
Prouty’s  [Ref.  9]  are  given. 

After  all  the  parameters  have  been  entered  and  the  Continue  »  button  is  pushed, 
the  next  screen  is  Stability  and  Control  Status,  Figure  A.  15.  This  screen  allows  the  user 
to  see  the  calculations  in  progress.  It  also  allows  the  user  to  know  that  the  calculations 
are  still  being  made.  If  the  run  elapsed  time  has  stopped  changing  then  there  is  probably  a 
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[3 Stability  and  Control  Parameters  page  2 
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Figure  A.  14.  Stability  and  Control  Parameters  Page  2. 


hang  up  in  the  program  and  the  user  should  start  over. 

After  the  calculations  are  completed  the  linear  model  of  the  helicopter  is 
displayed,  Figure  A.  16.  This  screen  also  shows  the  order  of  the  states  and  the  inputs. 
From  this  screen  the  user  has  three  options.  Pressing  the  Save  to  File  button  brings  up  a 
screen  prompting  for  a  file  name  in  which  to  save  the  input,  and  output  values.  The  input 
values  for  both  the  Performance  Module  and  the  Stability  and  Control  Module  are  saved 
to  a  single  file.  The  output  file  will  contain  only  the  A  and  B  matrices  that  comprise  the 
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linear  model.  The  output  from  the  Performance  Module  can  still  be  accessed  from  the 
file  that  was  saved  at  the  end  of  that  module 


Figure  A.  15.  Stability  and  Control  Status. 
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Figure  A.  16.  Linear  Model  of  Helicopter  Window 


Pressing  the  Modify  inputs  and  re-trim  will  send  the  user  back  to  the  input  page 
for  the  Performance  Module.  If  any  inputs  are  changed  then  a  new  trim  solution  must  be 
obtained  before  the  Stability  and  Control  Module  can  be  run.  The  program  is  set  up  so 
that  even  if  no  inputs  are  changed  in  the  Performance  Module,  the  trim  solution  must  still 
be  re-computed.  This  was  done  to  simplify  the  program  and  to  ensure  that  a  correct 
solution  for  the  Stability  and  Control  Module  is  obtained. 
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Figure  A.  17.  Time  and  Frequency  Response  Window 


If  the  Coupled  Response  button  is  pressed,  the  screen  shown  in  Figure  A.  17  will 
appear.  This  window  will  allow  the  user  to  perform  various  time  and  frequency  analyses. 
The  purpose  of  this  screen  is  to  give  the  user  a  idea  of  the  general  handling  qualities  of 
his  design.  If  an  extensive  analysis  is  desired  then  the  user  should  create  his  own 
MATLAB  program  and  load  the  values  for  the  A  and  B  matrices  save  in  the  previous 
screen. 

The  user  must  select  the  desired  input  channel  from  the  four  choices  in  the  left 
upper  comer  of  the  screen.  Only  one  input  can  be  selected  at  time.  Once  an  input  is 
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selected,  the  other  three  choices  will  be  shaded  and  the  user  will  not  be  able  to  select 


these  until  his  previous  selection  had  been  deleted. 

Next  the  user  must  select  the  response  channel.  One  or  all  of  the  channels  can  be 
selected.  The  user  is  warned  that  selecting  all  the  channels  can  cause  a  significant  time 
delay  depending  on  the  speed  of  the  hardware  in  use. 

Finally,  the  user  must  select  the  type  of  analysis  desired  from  the  menu  in  the 
lower  left  hand  comer  of  the  screen.  The  user  must  then  press  the  Continue  »  button 
and  the  desired  plots  will  be  displayed. 
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APPENDIX  B.  HANDLING  QUALITIES 


Vertical  Rate  Response  to  Collecth«(a4.3) 


Time  (sec) 


Figure  B.  1.  Flight  Path  Control 


Pitch  to  Roll  Coupling  (3.4.4.2a)  JANRAD 
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Figure  B.  2.  Inter  Axis  Coupling 
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JANRAD 


Figure  B. 
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Figure  B.  4.  Lateral  Directional  Oscillations 
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APPENDIX  C.  VARIABLE  LIST 


Computational 

a 

A 

Ab 

Abt 

Adisk 

Afh 

afoil 

Afv 

Ah 

ah 

A1 

alph 

alpha 

alphas 

alphaT 

alploh 

alplov 

alplow 

alpv 

alpw 

als 

altpp 

ao 

aot 

Ap 

At 

at 

Av 

av 

Aw 

aw 

b 
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beta 

betao 

betat 

bh 

bhoriz 

Bl 

Bis 

bv 

bvert 

bw 

bwing 

c 

cblade 

CD 

CDhoriz 

cdoh 

CDohoriz 

CDovert 


Variables 

lift  curve  slope  of  rotor  system  airfoil 

rotor  disk  area 

area  of  blades 

area  of  tail  rotor  blades 

area  of  rotor  disk 

fuselage  equivalent  flat  plate  drag  area 

rotor  system  airfoil  type  (HH02/VR12) 

vert,  projected  area  (fuselage  area  under  disk) 

area  of  the  horizontal  stab 

lift  curve  slope  of  the  horizontal  stab 

lateral  cyclic  pitch 

angle  of  attack  of  horizontal  stab 

angle  of  attack,  rotor  blade  radial  segment 

angle  of  attack  WRT  shaft  axis 

rotor  tip  path  plane  angle 

alpha  zero  lift  of  the  horizontal  stab 

alpha  zero  lift  of  the  vertical  stab 

alpha  zero  lift  of  the  wing 

angle  of  attack  of  vertical  stab 

angle  of  attack  of  wing 

longitudinal  flapping 

mean  alpha  TPP 

main  rotor  coning  angle 

tail  rotor  coning  angle 

projected  area  of  fuselage  under  rotor 

disc  area  of  the  tail  rotor 

tail  rotor  blade  lift  curve  slope 

area  of  the  vertical  stab 

lift  curve  slope  of  the  vertical  stab 

area  of  the  wing 

lift  curve  slope  of  wing 

number  of  rotor  blades 

tip  loss  parameter 

trim  sideslip  angle 

rotor  coning  angle 

geometric  angle,  rotor  blade  radial  segment 

spari  of  the  horizontal  stab 

span,  horizontal  tail 

longitudinal  cyclic  pitch 

lateral  flapping 

semi span  of  the  vertical  stab 

span,  vertical  tail 

span  of  the  wing 

span,  wing 

main  rotor  chord 

chord,  rotor  blade 

drag  coefficient,  rotor  blade  radial  segment 

drag  coefficient,  horizontal  tail 

Cdo  of  the  horizontal  stab 

profile  drag  coefficient,  horizontal  tail 

profile  drag  coefficient,  vertical  tail 
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cdow 

CDowing 

CDvert 

CDwing 

CH 

ch 

CH_sig 

Chsig 

CL 

CLhoriz 

CLvert 

elver tmax 

CLwing 

emun 

CON„b 

CON_cdo 

CONjlt 

CON_omega 

CON_R 

ct 

cpipitch 

cpiroll 

cpiyaw 

cppitch 

cproll 

cpyaw 

CQ 

cq 

CQ_sig 

cqsig 

CT 

ct 

CT_sig 

ctr 

ctsig 

ctsigt 

ctw 

dD 

ddD 

ddDM 

ddM 

ddT 

deldv 

delih 

deliv 

deliw 

delM 

delta3 

delvmax 

desdmdq 

desdndr 

desdrdp 

detaf dalpfh 

detaf dalpfw 

detafdbeta 

Df  total 

Dfuse 


Cdo  of  the  wing 

profile  drag  coefficient,  wing 

drag  coefficient,  vertical  tail 

drag  coefficient,  wing 

rotor  H  force  coefficient 

coefficient 

CH/solidity 

Ch/sigma 

lift  coefficient,  rotor  blade  radial  segment 
lift  coefficient,  horizontal  tail 
lift  coefficient,  vertical  tail 

maximum  cl  of  the  vertical  stab  with  full  rudder 
lift  coefficient,  wing 

design  Cmu  for  NOTAR  boom  in  hover  (.3  .6) 

Conventional  tail  rotor  #  of  blades 

Conventional  tail  rotor  cdO 

Conventional  tail  rotor  moment  arm 

Conventional  tail  rotor  speed 

Conventional  tail  rotor  radius 

tail  rotor  chord 

Control  power/ inch  pitch 

control  power /inch  Pitch 

Control  power /inch  Pitch 

Control  power  pitch 

Control 

Control  power  yaw 
rotor  torque  coefficient 
coefficient  of  torque 
CQ/solidity 
Cq/ sigma 

rotor  thrust  coefficient 
coefficient  of  thrust 
CT/solidity 
wing  root  chord 
Ct/sigma 

ct/sigma  of  the  tail  rotor 
wing  tip  chord 

differential  drag,  rotor  blade  radial  segment 
differential  drag,  rotor  blade  tip 
differential  drag  moment,  rotor  blade  tip 
differential  thrust  moment,  rotor  blade  tip 
differential  thrust,  rotor  blade  tip 

biplane  effect  mutual  inter,  tail  rotor  and  vert. stab 

span  efficiency  factor  of  the  horizontal  stab 

span  efficiency  factor  Of  the  verlical  stab 

span  efficiency  factor  of  the  wing 

change  in  total  thrust  moment 

tail  rotor  delta  3  angle 

maximum  rudder  deflection 

designed  pitcb  damping  (dM/dq) 

designed  yaw  damping  (dN/dr) 

design,  d  roll  damping  (dR]dp) 

fuselage  downwash  ratio  for  the  horizontal  stab 
fuselage  downwash  ratio)  for  the  wing 
fuselage  sideslip  ratio  (=  depsilondalpha) 
resultant  of  fuselage  drag  and  aux  thrust 
total  drag  generated  by  non  rotor  bodies 
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Dhoriz 

Dian 

DL 

dM 

DMpsi 

dr 

Drotor 

dthetadM 

Dvert 

Dwing 

e 

ewing 

filename 

filename3 

FM 

g 

grip 

GW 

hh 

hhd 

hm 

hmd 

Hrotor 

hslot 

ht 

htd 

htn 

htnd 

hv 

hvd 

hw 

hwd 

i 

lb 

Ibt 

Ic 

ih 

it 

itnd 

iw 

Ixx 

Ixz 

iyy 

Izz 

lamdaT 
lamp 
Lf total 
lh 
Ihd 

Lhoriz 

lm 

lmd 

lockno 

locknot 

It 

ltd 

ltn 


drag,  horizontal  tail 
NOTAR  boom  diameter 
disk  loading 

diff.  thrust  moment,  rotor  blade  radial  seg 
total  blade  drag  moment  at  specific  azimuth 
rotor  blade  radial  segment  width 
differential  thrust,  rotor  blade  radial  segment 
change  in  eye  pitch  with  change  in  thrust  moment 
drag,  vertical  tail 
drag ,  wing 

effective  hinge  offset 
wing  efficiency  factor 
name  of  input  file 

name  of  file  used  in  plot  routines 
figure  of  merit 
acceleration  due  to  gravity 

length  of  inner  non  aerodynamic  portion  of  blade 

aircraft  gross  weight 

horizontal  stab  vertical  offset 

height  from  waterline  to  horizontal  tail 

main  rotor  vertical  offset 

height  from  waterline  to  main  rotor  hub 

rotor  H  force 

total  of  slot  heights  for  NOTAR  boom 

tail  rotor  vertical  offset 

height  from  waterline  to  tail  rotor  hub 

NOTAR  thruster  vertical  offset 

height  from  waterline  to  NOTAR 

vertical  stab  vertical  offset 

height  from  waterline  to  vertical  fin 

wing  vertical  offset 

height  from  waterline  to  wing 

shaft  incidence  main  rotor 

blade  flapping  inertia 

tail  rotor  blade  flapping  moment  of  inertia 
Ixx* Izz 

angle  of  incidence  of  horizontal  stab 

WI  rotor  longitudinal  offset 

fuselage  station  of  NOTAR  boom 

angle  of  incidence  of  wing 

mass  moment  of  inertia  about  x  axis 

mass  moment  of  inertia  about  xz  plane 

mass  moment  of  inertia  about  y  axis 

mass  moment  of  inertia  about  z  axis 

forward  flight  induced  velocity  parameter 

lambda'  inflow  ratio  WRT  TPP 

total  lift  generated  by  non  rotor  bodies 

horizontal  stab  longitudinal  offset 

fuselage  station  of  horizontal  tail 

lift,  horizontal  tail 

main  rotor  longitudinal  offset 

fuselage  station  of  main  rotor  hub 

main  rotor  lock  number 

tail  rotor  lock  number 

tail  rotor  longitudinal  offset 

fuselage  station  of  tail  rotor  hub 

NOTAR  thruster  longitudinal  offset 
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lttnd 

lv 

lvd 

Lvert 

lw 

lwd 

Lwing 

Mlc 

Mis 

Machtip 

maxr 

mblade 

Mpsi 

mu 

mu 

mut 

n 

naz 

nbe 

nt 

ohm 

ohmt 

omega 

PA 

phi 

phin 

phi tip 

pho 

powet 

Protor 

prpitch 

prroll 

pryaw 

psi 

q 

q 

qhq 

Qrotor 

qvin 

qvq 

r 

R 

R 

Rbar 

RbarT 

Reff 

rho 

rho 

rT 

Rt 

Shoriz 

sidearm 

sigma 

sigmat 

solidity 

Svert 

Swing 


fuselage  station  of  NOTAR  thruster 
vertical  stab  longitudinal  offset 
fuselage  station  of  vertical  tail 
lift,  vertical  tail 
wing  longitudinal  offset 
fuselage  station  of  wing 
lift,  wing 

first  harmonic  (cosine)  thrust  moment  coef . 
first  harmonic  (sine)  thrust  moment  coefficient 
Mach  number  at  rotor  blade  tip 
maximum  rudder  deflection 
mass  of  rotor  blade 

total  blade  thrust  moment  at  specific  azimuth 

advance  ratio 

advance  ratio 

tail  rotor  advance  ratio 

a  counter  in  CTPLOTS.M 

number  of  azimuth  sectors 

number  of  blade  elements 

number  of  tail  rotor  blades 

omega 

tail  rotor  omega 

rotor  rotational  velocity 

pressure  altitude 

inflow  angle,  rotor  blade  radial  segment 
NOTAR  thruster  sleeve  rotation  angle 
inflow  angle,  rotor  blade  tip 
roll  trim  attitude  (euler  angle) 
roll 

power  required  by  rotor 
Pilot  rating  (dM/dq) /Iyy) 

Pilot  rating  (dR/dp)/Iy  x) 

Pilot  rating  (dN/dr)/Izz) 

azimuth  angle 

dynamic  pressure 

dynamic  pressure,  1/2  rho  V'2 

horizontal  tail  dynamic  press  ratio  (qh/q) 

rotor  torque 

dynamic  press  due  to  downwash  at  the  NOTAR  slots 

vertical  tail  dynamic  press  ratio  (qv/q) 

radius,  rotor  blade  radial  segment 

rotor  blade  radius 

blade  radius 

Reff  e 

rT*Rbar 

effective  rotor  blade  radius  (tip  loss) 
ambient  air  density 
air  density 

location  of  resultant  thrust  vector 
tail  rotor  blade  radius 
area,  horizontal  tail 

maximum  pe"  travel  or  twist  grip  deflection 
solidity 

tail  rotor  solidity 
solidity 

area,  vertical  tail 
area,  wing 
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swirl 

T 

T 

tailrot 

Taux 

temp 

theta 

thetalc 

thetals 

thetal 

thetalt 

thetao 

thetao 

thetat 

tho 

Tpsi 

tr 

Tt 

tv 

twist 

uo 

Up 

Up  tip 
Ut 

Uttip 

V 

vl 

vals_la 

vals_mu 

vals_to 

vbls__la 

vbls_mu 

vbls„to 

vchsig_la 

vchsig_mu 

vchsig_to 

vcqsig_JLa 

vcqsig_mu 

vcqsig__to 

vctsig_la 

vctsig_mu 

vctsig_to 

vf  vl 

vhvl 

vi 

Vinf 

Vlf 

VO 

Vtip 

wi_la 

wi_mu 

wi_to 

vwvl 

wblade 

wo 

xcg 

xcouple 


mean  swirl  angle  of  main  rotor  meas  at  the  NOTAR  slots 

rotor  thrust 

thrust 

value  corresponding  to  type  of  tail  rotor 
auxiliary  thrust 
ambient  air  temperature 
cyclic  pitch 

first  harmonic  (cosine)  of  cyclic  pitch 

first  harmonic  (sine)  of  cyclic  pitch 

main  rotor  blade  twist 

tail  rotor  blade  twist 

collective  pitch  at  .7  r/R 

blade  pitch  at  root 

induced  angle  at  the  tip 

trim  pitch  attitude  (euler  angle) 

total  blade  thrust  at  specific  azimuth  angle 

rotor  blade  taper  ratio 

thrust  of  the  tail  rotor 

vertical  stab  longitudinal  offset 

geometric  rotor  blade  twist 

x  initial  velocity 

vertical  component  of  velocity 

vertical  component  of  velocity  at  tip 

horizontal  component  of  velocity 

horizontal  component  of  velocity  at  tip 

forward  velocity 

induced  flow  velocity  at  a  hover 
vector  of  als  values  for  lambda  variation 
vector  of  als  values  for  mu  variation 
vector  of  als  values  for  thetaO  variation 
vector  of  bis  values  for  lambda  variation 
vector  of  bis  values  for  mu  variation 
vector  of  bis  values  for  theataO  variation 
vector  of  CH/ sigma  values  for  lambda  variation 
vector  of  CH/sigma  values  for  mu  variation 
vector  of  CH/sigma  values  for  thetaO  variation 
vector  of  CQ/ sigma  values  for  lamdda  variation 
vector  of  CQ/ sigma  values  for  mu  variation 
vector  of  CQ/sigma  values  for  thetaO  variation 
vector  of  CT/sigma  values  for  lambda  variation 
vector  of  CT/sigma  values  for  mu  variation 
vector  of  CT/sigma  values  for  thetaO  variation 
rotor  downwash  ratio  for  the  fuselage 
rotor  downwash  ratio  for  horizontal  stab 
induced  velocity 
forward  airspeed 

approximation  for  vi  at  forward  airspeed 
y  initial  velocity 
tip  speed 

vector  of  inflow  velocity  for  lambda  variation 

vector  of  inflow  velocity  for  mu  variation 

vector  of  inflow  velocity  for  theatO  variation 

rotor  downwash  ratio  for  wing 

weight  of  rotor  blade 

z  initial  velocity 

height  from  waterline  to  eg 

designed  cross  coupling 
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ycg 

yhd 

ym 

ymd 

ytd 

Ytmaxn 

ytnd 

Yv 

yvd 

ywd 

zcg 

Zh 

Zw 

Cruise  Basic  Main 

da  Ida 

daldb 

daldlamp 

daldmu 

dal  dp 

daldq 

daldtheto 

dbetdydot 

dblda 

dbldb 

dbldlamp 

dbldmu 

dbldp 

dbldq 

dbldtheto 

dchsigda 

dchsigdb 

dchsigdlamp 

dchsigdmu 

dchsigdtheto 

dctsigdlamp 

dctsigdmu 

dctsigdtheto 

dcqsigdlarap 

dcqsigdmu 

dcqsigdtheto 

dcysigdb 

dlampdxdot 

dlampdydot 

dlampdzdot 

dmdalsm 

dmudxdot 

drdblsm 

Cruise  Main  Rotor 

dmdalm 

dmdblm 

dmdpm 

dmdqm 

dmdthetom 


length  from  buttline  to  eg 

length  from  buttline  to  horizontal  tail 

main  rotor  lateral  offset 

length  from  buttline  to  main  rotor  hub 

length  from  butt line  to  tail  rotor  hub 

maximum  Y  force  from  NOTAR  thruster 

length  from  butt line  to  NOTAR 

side  force  of  vertical  stab 

length  from  buttline  to  verticle  tail 

length  from  buttline  to  wing 

fuselage  station  of  eg 

vertical  force  of  horizontal  stab 

vertical  force  of  win 

Rotor  Derivatives 

dals/dAl 

dals/dBI 

dais /d ( lambda' ) 

dals/dmu 

dais /dp 

dals/dq  d 

dals/dtheta (o) 

d(Beta) /dYdot 

dbls/dAl 

dbls/dBI 

dbls/d( lambda' ) 

dbl  s  /  dmu 

dbls/dp 

dblsldq 

dblsldtheta (o) 

d(Ch/sigma) /dais 

d(ch/sigma) ldbls 

d(Ch/ sigma) /d ( lambda' ) 

d(Ch/ sigma) ldmu 

d(Ch/sigma) /dtheta(o) 

d(Ct/sigma) /d(lambda' ) 

d(Ct/sigma) /drnu 

d (Ct/ sigma) /dtheta (o) 

d(Cq/sigma) /d(lambda' ) 

d(Cq/sigma) /dmu 

d(Cq/sigma) /dtheta(o) 

d(Cylsigma) /dbls 

dlambda ' ) /dXdot 

d( lambda' ) /dYdot 

d ( lambda ' ) /dZdot 

dM/dals  main  rotor  stiffness 

dmu/dxdot 

dR/dBls  main  rotor  stiffness 


Derivatives 

dM/dAl 

dM/dBl 

dM/dp 

dM/dq 

dM/dtheta (0) 
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dmdxdotm 

dmdydotm 

dmdzdotm 

dndrm 

dndtheom 

dndxdotm 

dndzdotm 

drdalm 

drdblm 

drdpm 

drdqm 

drdthetom 

drdxdotm 

drdydotm 

drzdotm 

dxdalm 

dxdblin 

dxdpm 

dxdqm 

dxdthetom 

dxdxdotm 

dxdydotm 

dxdzdot 

dydalm 

dydblm 

dydpm 

dydqm 

dydtbetom 

dydxdotm 

dydydotm 

dydzdotm 

dzdblm 

dzdrm 

dzdthetom 

dzdxdotm 

dzdzdotm 


dM/dXdot 

dM/dYdot 

dM/dZdot 

dN/dr 

dN/dtheta (0) 

dN/dXdot 

dN/dZdot 

dRIdAl 

dR/dBi 

dR/dp 

dR/dq 

dR/dtheta  (0) 

dR/dXdot 

dR/dYdot 

dR/dZdot 

dX/dAl 

dXJdBl 

dX/dp 

dX/dq 

dX/dthetaO 

dX/dXdot 

dX/dYdot 

dX/dZdot 

dY/dAl 

dY/dBl 

dY/dp 

dY/dq 

dY/dtheta (0) 

dY/dXdot 

dY/dYdot 

dY/dZdot 

dZ/dbls 

dZ/dr 

dZ/dtheta (0) 
dZ/dXdot 
dZ/dZdc) t 


Tail  Rotor  Derivatives 


dctsigdlampt 

dctsigdmut 

dctsigdtbetot 

dlampdydott 

dydxdott 

dydydott 

dydpt 

dydrt 

dydthetot 

drdxdott 

drdydott 

drdpt 

drdrt 

drdthetot 

dndxdott 

dndydotit 


d(Ct/ sigma) /d ( lambda' ) 

d(Ct/sigma) /d(mu) 

d{Ct/sigxna)  /d(thetaO) 

d( lambda' ) /dYdot 

dY/dXdot 

dY/dYdot 

dY/dp 

dY/dr 

dY/d(thetaO) 

dR/dXdot 

dR/dYdot 

dR/dp 

dR/dr 

dR/dthetaO) 
dN/dXdot 
dN/ dYdot 
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Vertical  Stabilizer  Derivatives 


Dalpvdxdotn 

Dalpvdydotn, 

dbetadydotv 

detatvdxdotv 

detatvdydotv 

detafdydotv 

drdxdotv 

drdydotv 

dxdxdotv 

dxdydotv 

dydxdotv 

dydydotv 

dydpv 

dydrv 


d{alpha  vert) /dXdot 

dfaipba  vert)/dYdot 

d (beta) /dYdot 

d(eta  tail  rotor) /dXdot 

d(eta  tail  rotor) /dYdot 

d(eta  fuselage) /dYdot 

dR/ dXdot 

dR/dYdot 

dX/dXdot 

dX/ dYdot 

dY/ dXdot 

dY/ dYdot 

dY/dp 

dY/dr 


Horizontal  Stabilizer  Derivatives 


dalphdxdoth 

dalphdzdbldoth 

dalphdzdoth 

de  t amhdxdo  t h 

detafhdzdoth 

detamhdzdoth 

dgamdzdoth 

dxdxdoth 

dxdzdbldoth 

dxzdoth 

dzdxdoth 

dzdzdbldoth 

dzdzdoth 


d(alpha  horiz) /dXdot 
d(alpha  horiz) /dZ  double  dot 
d(alpha  honz)/dZdot 
d(eta  main  rotor) /dXdot 
d(eta  fuse)/dZdot 
d(eta  main  rotor) /dZdot 
d( gamma) /dZdot 
dX] dXdot 

dX/dZ  double  dot 

dX/dZdot 

dZ/ dXdot 

dZ/dZ  double  dot 
dZ/dZdot 


Fuselage  Derivatives 

the  following  are  from  the  curves  In  Appendix  A  of  Ref .  2 


dfdalpf 

dlqdalpf 

drnqdalpf 

dnqdbetaf 

drqdbetaf 

dsfqdbetaf 

dalpf dxdot f 

dalpfdzdotf 

dbetadydot f 

detamfdxdotf 

detamfdzdotf 

dgamndzdotf 

dmdxdotf 

dnidzdotf 

dndydotf 

drdydotf 

dxdxdotf 

dxdzdotf 

dydydotf 


d(D/q) /d (alpha  fuse) 

d(L/q) /d (alpha  fuse) 

d(M/q) /dfalpha  fuse) 

d (N/q) /d (beta) 

d(RJq) /d (beta) 

d(Y/q) /d (beta) 

d(alpha  fuse) /dxdot 

d (alpha  fuse) /dZdot 

d (beta) /dYdot 

d (eta) M/dXdot 

d(eta)M/dZdot 

d( gamma) /dZdot 

dM/ dXdot 

dM/dZdot 

dN/ dYdot 

dR/dRdot 

dX/dXdot 

dX/d7  dot 

dY/ dYdot 
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dzdxdotf 

dxdzdot 


dZ/dXdot 

dZ/dZdot 


Hover  Basic  Main  Rotor  Derivatives 


dal  da 

daldb 

daldiamp 

daldmu 

daldp 

daldq 

daldtheto 

dblda 

dbldb 

dbidlamp 

dbldinu 

dbldp 

dbldq 

dbldtheto 

dbetdydot 

dchslgda 

dchsigdb 

dchsigdlamp 

dchsigdmu 

dchsigdtheto 

detsigdlamp 

detsigdmu 

dctsigdtheto 

dcqsigdlamp 

dcqsigdmu 

dcqsigdtheto 

dcysigdb 

dlampdxdot 

dlampdydot 

dlampdzdot 

dmdalsm 

dmudxdot 

drdblsin 


dals/dAl 

dals/dBl 

dals/ddaitibda' ) 

dals/dmu 

dais /dp 

dals/dq 

dals/dtheta(o) 

dbls/dAl 

dbls/dB] 

dbl s / d ( lambda ' ) 

dbl  s  /  dmu 

dbls/dp 

dbls/dq 

dbls/dtheta(o) 

d(Beta) /dYdot 

d(Ch/sigma) /dais 

d(Ch/sigma) /dbls 

d(Ch/ sigma)  /d( lambda' ) 

d(Ch/sigma)  /dmu 

d(Ch/sigma) /dtheta(o) 

d(Ct/sigma) /d(lambda' ) 

d(  '  Ct/sigma) /dmu 

d(Ct/sigma) /dtheta(o) 

d{Cq/ sigma) /d ( lambda' ) 

d(Cq/sigma) /dmu 

d(Cq/sigma) /dtheta(o) 

d(Cy/sigma) /dbis 

d( lambda' ) /dxdot 

d ( lambda ' ) /dYdot 

d ( lambda ' ) /dZdot 

dM/dals  main  rotor  stiffness 

drnu/ dxdot 

dR/dBIs  main  rotor  stiffness 


Rigging  -  Cockpit  Stick  Rigging  Gains 


dalmddela 

dblmddele 

ddelvddelp 

dphinddelp 

dthetode 

dthetomddele 

dthetotddelp 


dais/d{delta  aileron) 
dbls/d (delta  elev) 

rudder  deflection  per  pedal  travel 
dphi (notar  thruster  sleeve  angle) /d (pedal) 
dtheta (0 . 7) /d (collective) 
dthetaOm/ d ( collective ) 

dtheta (0.7, tail  rotor ) /d (pedaJ  tran,el) 


Global  Variables 


A_MAT 

B_MAT 

AF_MAIN 

AFJTIP 

AR 


A  matrix  for  linear  model 
B  matrix  for  linear  model 
Main  airfoil  in  meshed  airfoil 
Tip  airfoil  in  meshed  airfoil 
Aspect  Ratio 
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COUNT 

FIX_TPP_VAL 

INTER 

LAMDAT_TRIM 

MAXUM 

MESH_VAL 

MESH__STA 

MINUM 

NAME 

NEW_AUX_VAL 

NEW__r 

NEWJTPP 

NL_TWIST 

NL__TWI  ST„_VAL 

OUT_COUNT 

PICK 

PLOTJVALS 
RADS  PC_VAL 
REGIME 


Counter  to  determine  where  Performance  Input 

Selected  value  for  setting  TPP  to  defined  value 

Iteration  Interval 

Trim  value  of  lamda  prime 

Iteration  End  Value 

Selected  value  when  airfoil  mesh  option  chosen 

r/R  station  where  mesh  occurs 

Iteration  Start  Value 

Input  .mat  file  name 

Value  of  auxiliary  thrust 

Vector  of  user  defined  blade  elements 

Value  (rads)  TPP  is  set  to  for  compound  helo 

User  defined  twist  vector 

Selected  value  for  non  linear  twist 

Used  to  enable  selection  of  plot  routines 

Iteration  Method  Choice  (1  9) 

Values  chosen  for  no  iteration  plot 
elected  value  for  non  even  blade  elements 
Include  HIGE  Calculations  Choice  (l=yes,  0=no) 


Structured  Variables 


S__H_SC_STAT 

S_MATR_VEC 

S_PERF_INPUT 

S_STAB_INPUT 

S_STAB_INPUT__1 

S_STAB_INPUT_2 

S_USER_INPUT 

S_F I T_TR_INPUT 

S__NOTAR_TR_INPUT 


Graphics  handles  for  Stab/Control  status  figure 

Matrix/Vector  structure 

Perf.m  input  structure 

S_STAB_INPUT_1  andS_STAB_INPUT__2 

Stab.m  input  structure  for  screen  1 

Stab.m  input  structure  for  screen  2 

User  input  structure 

Fan  In  Tail  input  structure 

NOTAR  input  structure 


Graphics  Handle  Variables 


H_AF_MESH 

H_AL 

H_AL_IT_P# 

H_ANAL 

H_AS 

H_AS_IT_P# 

H__ASPECT 

H_ASPECT_EDIT 

H_BLD_EL 

HJBK 

H_BT 

HJBT_IT_P# 

H_BTR 

H_BTR_IT_P# 

H_checkl 

H_check2 

H_check3 

H_CID 

H_CIM 

H_CNF 

H_datain 


Airfoil  Mesh  List  Box 

Altitude  Iteration  Radio  Button 

Altitude  Iteration  Plots 

Analysis  Figure  Window 

Airspeed  Iteration  Radio  Button 

Airspeed  Iteration  Plots 

Aspect  Ratio  Static  Text  Box 

Aspect  Ratio  Edit  Text  Box 

Blade  Element  Menu  Handle 

Iteration  Method  <<  Back  Push  Button 

Blade  Twist  Iteration  Radio  Button 

Blade  Twist  Iteration  Plots 
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APPENDIX  D.  MATLAB  M-FILES 


1.  about_janrad.m 

function  about_j  anrad ( ) 

%  This  is  the  machine-generated  representation  of  a  MATLAB  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these 
%  objects  are  re-created.  This  may  cause  problems  with  some  callbacks. 

%  The  command  syntax  may  be  supported  in  the  future,  but  is  currently 
%  incomplete  and  subject  to  change. 

% 

%  To  re-open  this  system,  just  type  the  name  of  the  m-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associtated  MAT-file  must  be  on  your  path. 

%  This  function  generates  a  screen  listing  all  contributers  to  the 
JANRAD 
%  program. 

%  Modifed  for  JANRAD  6.0  by  LT  D.A.  Heathorn 
load  about_j anrad 

a  =  figure ( 'Units' , 'normalized' ,  ... 

'Color' ,[0.80.80.8],  ... 

' Colormap ' , mat 0 ,  ... 

' MenuBar ' , ' none ' ,  ... 

' Name ',' About  JANRAD  98',  ... 

'NumberTitle' , 'off' ,  ... 

' PointerShapeCData ' , matl ,  ... 

' Position' ,[ 0 . 1075  0.13  0.6675  0.77],  ... 

'Tag' , 'Figl' ) ; 

b  =  uicontrol (' Parent ', a,  ... 

'Units' , 'normalized' ,  ... 

'Backgrounded or ',[ 0 . 752941  0.752941  0.752941],  ... 

'Position' , [0.00749064  0.0194805  0.975655  0.963203],  ... 

' Style ' , ' frame ' ,  ... 

'Tag' , ' Frame 1 ' ) ; 
b  =  uicontrol (' Parent ', a,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0299625  0.348485  0.930712  0.316017],  ... 

' Style ' , ' frame ' ,  ... 

'Tag' , 'Frame2 ' ) ; 

b  =  uicontrol (' Parent ', a,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' ,  [0 .752941  0 .752941  0 .752941] ,  ... 

' FontSize ' , 14 ,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.0189125  0.85119  0.959811  0.122024],  ... 

' String' , 'Joint  Army/Navy  Rotorcraft  Analysis  and  Design  JANRAD 
98'  ,  . . . 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icTextl ' ) ; 
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b  =  uicontrol ( 'Parent' , a,  ... 

' Units ',' normalized' ,  ... 

' BackgroundColor ',  [0 . 752941  0.752941  0.752941],  ... 

' FontSize' ,  10 ,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.230428  0.743017  0.536189  0.104283],  ... 

' String' , 'Naval  Postgraduate  School  Monterey,  California',  . 
'Style' , 'text' ,  ... 

' Tag ' , ' Stat icText2 ' ) ; 
b  =  uicontrol (' Parent ', a,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

' FontSize' , 10 ,  ... 

' FontWeight '  ,  ' demi '  ,  ... 

'Position' , [0.401773  0.674115  0.192024  0.0595903],  ... 

' String' , 'March  1999',  ... 

' Style' , ' text ' ,  ... 

' Tag ' , ' StaticText3 ' ) ; 
b  =  uicontrol (' Parent ', a,  ... 

'Units ', 'normalized' ,  ... 

' BackgroundColor ',[ 0 . 752941  0.752941  0.752941],  ... 

'Position' , [0.0355805  0.582251  0.911985  0.0367965],  ... 
'String' , 'Version  5.0  Designer:  LCDR .  William  L.  Hucke,  USCG' 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icText4 ' ) ; 
b  =  uicontrol {' Parent ', a,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0318352  0.536797  0.913858  0.0411255],  ... 

' String' , 'Version  4.0  Designer:  LCDR.  Chris  F.  Lapacik,  USN' , 
'Style' , 'text' ,  ... 

' Tag ' , ' StaticText4 ' ) ; 
b  =  uicontrol (' Parent ', a ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0318352  0.443723  0.913858  0.04329],  ... 

' String' , 'Version  3.0  Designer:  LT.  Dave  Eccles,  USN',  ... 

' Style' , ' text' ,  ... 

' Tag ' , ' StaticTextS ' ) ; 
b  =  uicontrol ( 'Parent' , a,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0318352  0.400433  0.913858  0.0411255],  ... 

' String' , 'Version  2.0  Designer:  LT.  Dale  Feddersen,  USN',  ... 
'Style' , 'text' ,  ... 

' Tag ' , ' Stat icTextl ' ) ; 
b  =  uicontrol (' Parent ', a ,  ... 

' Units ',' normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0355805  0.491342  0.913858  0.0411255],  ... 

' String' , 'Version  3.1  Designer:  LT.  Dan  Hiatt,  USN',  ... 

' Style' , ' text ' ,  ... 

'Tag' , ' StaticText6 ' ) ; 
b  =  uicontrol (' Parent ', a,  ... 

'Units' , 'normalized' ,  ... 

' BackgroundColor' ,[0.752941  0.752941  0.752941],  ... 
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'Position' , [0.0337079  0.354978  0.913858  0.0411255],  ... 

' String' , 'Version  1.0  Designers:  MAJ  Bob  Nicholson,  USA  &  MAJ 
Walter  Wirth,  USA' ,  ... 

' Style' , ' text' ,  ... 

' Tag ' , ' StaticText7 ' ) ; 
b  =  uicontrol (' Parent ', a,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor', [0.752941  0.752941  0.752941],  ... 
'HorizontalAlignment ' , 'left' ,  ... 

'Position' , [0.0945347  0.148976  0.807976  0.189944],  ... 

' String' ,mat2 ,  ... 

'Style' , 'text' ,  ... 

'Tag' , ' StaticText8 ' ) ; 
b  =  uicontrol (' Parent ', a,  ... 

'Units ', 'normalized' ,  ... 

' Callback' ,' close  (gcf ) ' ,  ... 

' FontSize' , 14 ,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.408983  0.0505952  0.177305  0.0892857],  ... 

'String' , 'OK' ,  ... 

' Tag ' , ' Pushbuttonl ' ) ; 
b  =  uicontrol (' Parent ', a,  ... 

'Units' , 'normalized' ,  ... 

' BackgroundColor ',[ 0 . 752941  0.752941  0.752941],  ... 

'Position' , [0.0318352  0.623377  0.911985  0.0367965],  ... 

'String' , 'Version  6.0  Desienger:  LT  David  A.  Heathorn,  USN' ,  . 

'Style' , 'text' ,  ... 

' Tag ' , ' S taticText4 ' ) ; 
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2.  Bode_plotter 

%  Bode  ^plotter .m 

%  M-file  called  by  time_f req_resp_f cn.m  to  plot  Bode  Diagrams  for 
specified  input  and  output. 

%  Created  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 
global  Amat  Bmat  u  C 


D=0 ; 

if  u ( 1 ) ==1 


for  j=l : length (C) 
if  C { j , j ) ==1 
figure 

bode (Amat,  Bmat(:,l),  C(j,:),  D) 
if  j==l 

title ( 'Response  of  x-velocity  (u)  to  Longitudinal  Cyclic 

Input ' ) 


elseif  j==2 

title ( 'Response  of  z-velocity  (w)  to  Longitudinal  Cyclic 


Input ' ) 


elseif  j==3 

title ( 'Response  of  Pitch  Rate  (q)  to  Longitudinal  Cyclic 


Input' ) 


elseif  j==4 

title (' Response  of  Pitch  Angle  (theta)  to  Longitudinal 
Cyclic  Input') 


Input ' ) 


elseif  j==5 

title ( 'Response  of  y-veloctiy  (v)  to  Longitudinal  Cyclic 


Input '  ) 


elseif  j==6 

title ( 'Response  of  Roll  Rate  (p)  to  Longitudinal  Cyclic 


Input ' ) 


Input '  ) 


elseif  j==7 

title ( 'Response  of  Roll  Angle  (phi)  to  Longitudinal  Cyclic 


elseif  j==8 

title { 'Response  of  Yaw  Rate  (r)  to  Longitudinal  Cyclic 


Input ' ) 


elseif  j==9 

title { 'Response  of  Yaw  Angle  (psi)  to  Longitudinal  Cyclic 


end 
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end 


end 

elseif  u(2)==l 

for  j=l: length (C) 
if  C(j/j)==l 
figure 

bode(Amat,  Bmat ( : , 2 ) ,  C(j,:),  D) 
if  j==l 


title ( 'Response 

of 

x-velocity 

(u) 

.  to 

Collective 

Input ' 

elseif  j==2 

title ( 'Response 

of 

z -velocity 

(w) 

to 

Collective 

Input ' ) 

elseif  j==3 

title { ' Response 

of 

Pitch  Rate 

(q) 

to 

Collective 

Input ' ) 

elseif  j==4 

title ( 'Response  of  Pitch  Angle  (theta)  to  Collective  Input') 
elseif  j==5 

title ( 'Response  of  y-veloctiy  (v)  to  Collective  Input') 
elseif  j==6 

title ( 'Response  of  Roll  Rate  (p)  to  Collective  Input') 
elseif  j  ==7 

title ( 'Response  of  Roll  Angle  (phi)  to  Collective  Input') 
elseif  j==8 

title ( 'Response  of  Yaw  Rate  (r)  to  Collective  Input') 
elseif  j==9 

title ( 'Response  of  Yaw  Angle  (psi)  to  Collective  Input') 


end 

end 

end 


elseif  u(3)==l 

for  j=l : length (C) 

if  C(j,j)==l 
figure 

bode(Amat,  Bmat ( : , 3 ) ,  C(j,:),  D) 
if  j==l 

title (' Response  of  x-velocity  (u)  to  Lateral  Cyclic  Input') 
elseif  j==2 

title ( 'Response  of  z-velocity  (w)  to  Lateral  Cyclic  Input') 
elseif  j==3 

title ( 'Response  of  Pitch  Rate  (q)  to  Lateral  Cyclic  Input') 
elseif  j==4 
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title ( 'Response  of  Pitch  Angle  (theta)  to  Lateral  Cyclic 

Input '  ) 

elseif  j==5 

title (' Response  of  y-veloctiy  (v)  to  Lateral  Cyclic  Input') 
elseif  j==6 

title ( 'Response  of  Roll  Rate  (p)  to  Lateral  Cyclic  Input') 
elseif  j==7 

title ( 'Response  of  Roll  Angle  (phi)  to  Lateral  Cyclic 

Input '  ) 

elseif  j==8 

title ( 'Response  of  Yaw  Rate  (r)  to  Lateral  Cyclic  Input') 
elseif  j==9 

title {' Response  of  Yaw  Angle  (psi)  to  Lateral  Cyclic  Input') 

end 

end 

end 


elseif  u(4)==l 

for  j=l : length (C) 
if  C ( j , j ) ==1 
figure 

bode(Amat,  Bmat (  :  ,  4 ) ,  C ( j , : ) ,  D) 

if  j==l 

title ( 'Response  of  x-velocity  (u)  to  Pedal  Input') 
elseif  j==2 

title ( 'Response  of  z-velocity  (w)  to  Pedal  Input') 
elseif  j==3 

title ( 'Response  of  Pitch  Rate  (q)  to  Pedal  Input') 
elseif  j==4 

title (' Response  of  Pitch  Angle. (theta)  to  Pedal  Input') 
elseif  j==5 

title ( 'Response  of  y-veloctiy  (v)  to  Pedal  Input') 
elseif  j==6 

title ( 'Response  of  Roll  Rate  (p)  to  Pedal  Input') 
elseif  j==7 

title ( 'Response  of  Roll  Angle  (phi)  to  Pedal  Input') 
elseif  j==8 

title ( 'Response  of  Yaw  Rate  (r)  to  Pedal  Input') 
elseif  j==9 

title ( 'Response  of  Yaw  Angle  (psi)  to  Pedal  Input') 
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end 


end 

end 


end 
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3.  Cbodygroup 


%  Cbodygrp.m 
%  CALLED  BY  Cruise. m 

%  Computes  the  stability  derivatives  of  the  fuselage,  wing,  verticle 
%  fin  and  horizontal  stabalizer  in  cruise  flight. 

% 

% 

%  Compute  the  stability  derivatives  of  the  fuselage 
% 

%  Modified  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 
% 

dgamdzdotf =-l/V; 
dbetadydotf=l/V; 

detamfdxdotf=vfvl/  (4*q*pi*RA2 )  *  ( -dzdxdotm-2*T/V).  ; 
detamfdzdotf =-vfvl/  (4*q*pi*RA2)  *dz'dzdotm; 
dalpfdxdotf =-detamfdxdotf ; 
dalpfdzdotf=- (detamfdzdotf +dgamdzdotf ) ; 

% 

%  the  folowing  are  from  the  curves  in  appendix  A  of  Prouty: 

%  and  can  be  modified  if  necessary 

dfdalpf =-2 ; 

dlqdalpf =74 . 5 ; 

dsfqdbetaf =-220 ; 

dmqdalpf =1780 ; 

dmqdalpf _intercept=-175 ; 

dnqdbetaf =-82 0 ; 

drqdbetaf=230 ; 

% 

dxdxdotf =-2/V*Afh*q; 

dxdzdotf= (-Afh*q-q*dfdalpf ) *dalpf dzdotf ; 
dydydotf=l/V* (q*dsfqdbetaf-Afh*q) ; 
dzdxdotf= (2/V) *Afh*q; 

dzdzdotf= (-Afh*q-q*dlqdalpf ) *dalpf dzdotf ; 
drdydotf =q*drqdbetaf *dbetadydotf ; 

Mf_bar= ( (dmqdalpf*- (im+alphaT) ) +dmqdalpf_intercept ) *q; 
dmdxdotf =q*dmqdalpf *dalpfdxdotf + (2*Mf_bar/V) ; 

dmdzdotf=q*dmqdalpf *dalpf dzdotf ; 
dndydotf =q*dnqdbetaf *dbetadydotf ; 

% 

%  Compute  the  stability  derivatives  of  the  wing 
% 

if  wing==l 

dgamd  zdotw=-l/V; 

detamhdxdotw=vwvl/ (4*q*pi*RA2) * (-dzdxdotm-2*T/V) ; 
detamhdzdotw=-vwvl/ (4*q*pi*RA2) *dzdzdotm; 

detafhdzdotw=detafdalpfw* (1/ (4*q*pi*RA2) *dzdzdotm-dgamdzdotw) ; 
da lphdxdo  t w= - de t amhdxdo t w ; 

dalphdzdotw=- (detamhdzdotw+detafhdzdotw+dgamdzdotw) ; 
dalphdzdbldotw=-detamhdzdotw*lw/V; 

% 

dxdxdo  tw= - 2  *  cdow ; 

dxdzdotw=q*Aw*aw* ( (alpw-alplow) * (l-2*aw* (1+deliw) *Aw/pi/bwA2) +alpw- 
iw) * . .  . 

dalphdzdotw; 
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dxdzdbldotw=dxdzdotw*dalphdzdbldotw/dalphdzdotw; 
dzdxdotw=2/V*Zw-q*Aw*aw*  (1+aw*  (1+deliw)  *Aw/pi/bw^2*  (2*  (alpw- 
alplow) *  .  .  . 

(alpw-iw)  +  (alpw-alplow)  ^2)  +cdow)  *dalphdxdotw; 
dzdzdotw=-q*Aw*aw(l+aw*  (1+deliw)  *Aw/pi/bw^2*  {2*  (alpw-alplow)  *  .  .  . 

(alpw-iw)  +  (alpw*alplow)  A2)  +cdow)  *dalphdzdotw; 
dzdzdbldotw=dzdzdotw*dalphdzdbldotw/dalphdzdotw; 

% 

dzdqw=dzdzdotw*lw; 
dzdqw=dzdzdotw*  lw; 

dmdxdotw=-dxdxdotw*hw+dzdxdotw*lw; 
dmdzdotw=-dxdzdotw*hw+dzdzdotw*lw; 
dmdzdbldotw=-dxdzdbldotw*hw+dzdzdbldotw*lw; 
dmdqw=dzdqw*  lh  ; 

% 

drdrw=q*Aw*bw*bw*aw*alpw/4/V/V/Ixx; 

drdpw=-q*Aw*bw*bw/4/V/V/Ixx*pi* ( 1+3 *ctw/crw) / (6* (1+ctw/crw) ) ; 
else 
% 

%  Zero  stability  derivatives  of  the  wing  when  no  wing  is  installed 
% 

dxdxdotw=0 ; dxdzdotw=0 ; dxdzdbldotw=0 ; dzdxdotw=0 ; 
dzdzdotw=0 ; dzdzdbldotw=0 ; 
dzdqw=0 ; dzdqw=0 ; dmdxdotw=0 ; dmdzdotw=0 ; 
dmdzdbldotw=0 ; dmdqw=0 ; 
dr drw=  0 ; dr dpw=  0 ; 
end 
% 

%  Compute  the  stability  derivatives  of  the  verticle  fin 
%  ' 

detaf dbeta= . 06 ;  %  assumed  to  be  .06  because  of  little  study  of  effect 
dbetadydotv=l/V; 

detatvdxdotv=-l/ (4*qvq*q*Av) * (dydxdott-2*Tt/V) ; 
dalpvdxdotv=detatvdxdotv; 
detatvdydotv=dydydott/ (4*qvq*q*At) ; 
detaf dydotv=detafdbeta*dbetadydotv; 

da lpvdy do t v= - (dbetadydotv+detatvdydotv+detafdydotv) ; 

% 

dxdxdotv=0; 

dxdydotv=0; 

dydxdotv=2/V*Yv+qvq*q*Av*av*dalpvdxdotv; 
dydydotv=l/ (1-deldv/Yv) * . . . 

(qvq*q*Av*av*dalpvdydotv+deldv* ( -2 /V+l/Tt*dydydott ) ) ; 

% 

dy dp v= dydy do  tv  *  hv ; 
dydrv= - dy dy do tv*lv; 
drdxdotv=dydxdotv*hv; 
drdydotv=dydydo tv*hv ; 
dr dp v= dydp v  *  hv ; 
dr drv= dydrv*  hv ; 
dndxdo t v= - dy dxdo  tv * 1 v ; 
dndydo  tv=  -  dy  dydo  tv  *  1  v  ; 
dndpv=  -  dy  dpv  *  1  v  ; 
dndrv=-dydrv* lv ; 

% 

dyddelv=q*qvq*Av*clvertmax/delvmax; 

drddelv=dyddelv*hv; 
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dndde 1 v= -dydde 1 v* 1 v ; 

% 

%  Compute  the  stability  derivatives  of  the  horizontal  stabalizer 
% 

dgamdzdoth=-l/V; 

detamhdxdoth=vhvl/ (4*q*pi*RA2 ) * ( -dzdxdotm-2 *T*cos (altpp) /V) ; 
detamhdzdoth=-vhvl/ (4*q*pi*RA2) *dzdzdotm; 

detafhdzdoth=detafdalpfh* (1/ (4*q*pi*RA2) *dzdzdotm-dgamdzdoth) ; 
da lphdxdo  th=-det amhdxdo th ; 

dalphdzdoth=- (detamhdzdoth+detafhdzdoth+dgamdzdoth) ; 
dalphdzdbldoth=-detamhdzdoth*lh/V; 

% 

e tamh=vhvl * vl / V; 
etafh=detafdalpfh*tho; 

Xh= (Lhoriz*sin( tho- (etamh+etafh+gamc ) ) -Dhoriz*cos (tho- 
(etafh+etafh+gamc) ) ) ; 

dxdxdoth=2/V*Xh+qhq*q*Ah*ah* ( (alph-alploh) * (1- 
2*ah* (1+delih) * Ah/pi /bhA2) +alph-ih) * . . . 
dalphdxdoth; 

dxdzdoth=qhq*q*Ah*ah* { (alph-alploh) * (l-2*ah* (1+delih) * Ah/pi /bhA2) +alph- 
ih) * . . . 

dalphdzdoth; 

dxdzdbldoth=dxdzdoth*dalphdzdbldoth/dalphdzdoth; 

Zh= (-Lhoriz*cos (tho- (etamh+etafh+gamc ) ) -Dhoriz*cos (tho- 
(etafh+etafh+gamc) ) ) ; 

dzdxdoth= (2/V* (Zh) ) -qhq*q*Ah*ah* { 1+ah* ( 1+delih) *Ah/pi/bhA2* (2* (alph- 
alploh)  .  . 

(alph-ih) + (alph-alploh) A2 ) +cdoh) *dalphdxdoth; 
dzdzdoth=-abs ( -qhq*q*Ah*ah* (1+ah* (1+delih) *Ah/pi/bhA2* (2* (alph- 
alploh)  *  .  .  . 

(alph-ih) + (alph*alploh) A2) +cdoh) *dalphdzdoth) ; 
dzdzdbldo th=dzdzdo th*dalphdzdbldoth/ dalphdzdoth; 

% 

dzdqh=dzdzdo th* lh ; 

dzdqh=dzdzdoth* lh ; 

dmdxdoth=  ~dxdxdoth*hh+dzdxdo th* lh ; 

dmdzdoth=-dxdzdoth*hh+dzdzdoth*lh; 

dmdzdbldoth=-dxdzdbldoth*hh+dzdzdbldoth*lh; 

dmdqh=dzdqh* lh; 

% 

%  return  to  CRUISE. M 
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4.  Cmrgrp.m 


%  Cmgrp.m 

%  CALLED  BY  Cruise.m 

%  Computes  the  basic  MR  derivatives  in  cruise  flight 

%  Computes  the  stability  derivatives  of  the  main  rotor  in  cruise  flight. 

%  Uses  data  loaded  in  the  workspace  by  JANRAD.M  and  STAB.M 
% 

%  Compute  the  basic  mainrotor  derivatives. 

% 

%  Modified  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 
% 

dmudxdot=l/ohm/R  ; 

dlampdxdot= (1/ohm/R) * (-altpp- (sigma/2/mu) * (dctsigdmu-ctsig/mu) )  ; 

dlampdzdot=l/ (ohm*R* (l+dctsigdlamp*sigma/2/mu) )  ; 

dbetdydot=l/V  ; 

dchsigda=ctsig+a/8*lamp  ; 

dcysigdb=dchsigda  ; 

daldq=-16/ (lockno*ohm* (1-e/R) A2* (l-mu*mu/2) ) - . . . 

12*e/R/ (lockno*ohm* (1-e/R) A3* (l-muA4/4) )  ; 

daldp=l/ (ohm* (l-muA2/2) ) -192*e/R/ (locknoA2*ohm* (1-e/R) A5* (l-muA4/4) )  ; 

dalda=12*e/R* (l+muA2/2) / (lockno* (1-e/R) A3* (l-muA4/4) )  ; 

daldb=-l* (l+3/2*muA2) / (l-muA2/2)  ; 

dbldg=-inv(ohm* (l+muA2/2) ) +192*e/R/ (locknoA2*ohm* (1-e/R) A5* (l-muA4/4) )  ; 

dbldp=-16/ (lockno*ohm* (1-e/R) A2* (l+mu*mu/2) )-. . . 

12 *e/R/ (lockno* ohm* (1-e/R) A3* (l-muA4/4) )  ; 

dblda=l  ; 

dbldb=12*e/R* (l+3/2*muA2) / (lockno* (1-e/R) A3* (l-muA4/4) )  ; 

dmdalsm=3/4*e/R*Ab*rho*R* (ohm*R) A2*a/lockno  ; 
drdblsm=dmdalsm  ; 

% 

%  Compute  the  mainrotor  stability  derivatives. 

% 

dxdxdotm=- 

rho*Ab* (ohm*R) A2* ( (dchsigdmu+dchsigda*daldmu+ (als+im) *dctsigdmu) . . . 
*dmudxdot+ ( (dchsigdlamp+dchsigda*daldlamp+ (als+im) *dctsigdlamp) *dlampdxd 
ot)  )  ; 

dxdydotm=rho*Ab* (ohm*R) A2*ctsig* (Al-bls) *dbetdydot  ; 
dxdzdotm=- 

rho*Ab* (ohm*R) A2* (dchsigdlamp+ (ctsig*daldlamp) + (als+im) *dctsigdlamp) . . . 
*dlampdzdot  ; 

dxdqm= - r ho * Ab * (ohm*R) A2*dchsigda*daldq-dxdxdotm*hm  ; 
dxdpm= - r ho  * Ab * (ohm*R) A2*dchsigda*daldp-dxdydotm*hm  ; 
dxdthetom=-rho*Ab* (ohm*R) A2* (dchsigdtheto+dchsigda*daldtheto+ . . . 

(als+im) *dctsigdtheto)  ; 

dxdalm=-rho*Ab* (ohm*R) A2*dchsigda*dalda  ; 
dxdblm=-rho*Ab* (ohm*R) A2*dchsigda*daldb  ; 

dydxdotm=rho*Ab* (ohm*R) A2* (dcysigdb*dbldmu+bls*dctsigdmu) *dmudxdot  ; 
dy dy do tm= - r ho * Ab * (ohm*R) A2* (chsig+ctsig* (Bl+als) ) *dbetdydot  ; 
dydzdotm=rho*Ab* (ohm*R) A2*dbldlamp*dcysigdb*dlampdzdot  ; 
dy dqm=  r ho  *  Ab  * (ohm*R) A2*dcysigdb*dbldq+dydxdotm*hm  ; 
dydpm=rho*Ab* (ohm*R) A2*dcysigdb*dbldp+dydydotm*hm  ; 

dy dthe  t  om=  rho  * Ab  * (ohm*R) A2* (dcysigdb*dbldtheto+bls*dctsigdtheto)  ; 
dydalm=rho*Ab* (ohm*R) A2*dcysigdb*dblda  ; 
dydblm=rho*Ab* (ohm*R) A2*dcysigdb*dbldb  ; 

dzdxdotm=-rho*Ab* (ohm*R) A2* (dctsigdmu*dmudxdot+dctsigdlamp*dlampdxdot)  ; 
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dzdzdotm=-rho*Ab*  (ohin*R)  A2*dctsigdlamp*dlampdzdot  ; 
dzdrm=2/ohm*rho*Ab*  (ohm*R)  A2*ctsig  ; 
dzdthetom=-rho*Ab*  (ohm*R)  A2*dctsigdtheto  ; 

dzdblm=-rho*Ab*  (ohm*R)  A2*dctsigdlamp*inv (daldlamp)  *daldb  ; 
drdxdotm=drdblsmMbldmu*dmudxdot+dydxdotm*hm+dzdxdotm*ym  ; 
drdydotm=-drdblsm* (Bl+als) *dbetdydot+dydydotm*hm  ; 
drdzdotm=drdblsm*dbldlamp*dlampdzdot+dydzdotm*hm+dzdzdotm*ym  ; 
drdqm=drdblsm*dbldq+dydqm*hm  ; 
d r dpm =drdblsm*dbldp+ dy dpm * hm  ; 

drdthetom=drdblsm*dbldtheto+dydthetom*hm+dzdthetom*ym  ; 
drdalm=drdblsm*dblda+dydalm*hm  ; 
drdblm=drdblsm*dbldb+dydblm*hm  ; 

dmdxdotm=dmdalsm*  (daldmu*dmudxdot+daldlamp*dlampdxdot )  +dxdxdotm*hm+dzdxd 
otm*lm  ; 

dmdydotm=“dxdydotm*hm+dmdalsm*  (Al-bls)  *dbetdydot  ; 
dmdzdotm=dmdalsm*daldlamp*dlampdzdot-dxdzdotm*hm+dzdzdotm*lm  ; 
dmdqm=  dmda  1  sm  *  da  1  dq-  dxdqm*  hm  ; 
dmdpm= dmda  1 sm*  dal dp + cbtdpm*  hm  ; 

dmdthetom=dmdalsm*daldtheto-dxdthetom*hm+dzdthetom*lm  ; 
dmdalm=dmdalsm*dalda-dxdalm*hm  ; 
dmdblm=dmdalsm*daldb-dxdblm*hm  ; 

dndxdotm=rho*Ab*  (ohm*R)  A2*R*  (dcqsigdmu*dmudxdot+dcqsigdlamp*dlampdxdot ) 


dndzdotm=rho*Ab*  (ohm*R)  A2*R*dcqsigdlamp*dlampdzdot  ; 
dndrm=  - 2 / ohm* rho * Ab*  (ohm*R)  A2*R*cqsig  ; 
dndthetom=rho*Ab* (ohm*R) A2 *R*dcqsigdtheto  ; 

% 

%  returm  to  CRUISE. M 
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5, 


Cruise.m 


%  Cruise.m 
% 

%  Computes  the  stability  derivatives  in  cruise  flight. 
%  calls  the  following  subroutines 
% 

%  Cmrgrp 
%  Ctrgrp 
%  Cfusegrp 
%  Trim 

%  Dctplots  or  Dctmats 


%  evaluate  basic  stability 


% 

%  MAIN  ROTOR 
%  dctsigdmu 
%  dchsigdmu 
%  dcqsigdmu 
%  daldmu 
%  dbldmu 


dctsigdtheto 

dchsigdtheto 

dcqsigdtheto 

daldtheto 

dbldtheto 


derivatives 


dctsigdlamp 

dchsigdlamp 

dcqsigdlamp 

daldlamp 

dbldlamp 


%  TAIL  ROTOR 

%  dctsigdlampt  dctsigdmut  dctsigdthetot 
% 


%  Modified  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 

global  S_SC_INPUT_1  S_SC_INPUT_2  S_PERF„INPUT  S_PERF_OUTPUT  H_S_SC_STAT 
S_H_SC_STAT  Amat  Bmat 


%  Unstructure  input  variables 

S_STAB_INPUT__1-S_SC_INPUT__1  ; 
S_STAB_INPUT_2=S_SC_INPUT_2  ; 

unstructure 

unstructure_stab_input_l 
uns  t  rue  tur  e_s  t  ab_inpu  t__2 
unstructure2 

H_SC_STAT=  S_H_SC_STAT .  h_sc_stat  ; 
H_STATUS=S_H_SC_STAT .  h_status  ? 
H_S T ATU S 1 = S_H_S C_S TAT .  h„statusl  ; 
H_STATUS2=S_H_SC_STAT  .hjstatus2  ; 
H_STATUS3  =  S_H_SC_S  TAT .  hjs  tatus3  ; 
H_STATUS4  =  S_H_SC__STAT .  h„s  tatus4  ; 
H_BK= S_H_SC_STAT .  h;_bk; 

H_GO = S_H__SC_STAT .  h_go  ; 
H_RUPT=S_H_SC_STAT .  h_rupt  ; 
H„RES=S_H_SC_STAT .  h„res  ; 

H_MEN=  S_H_SC_STAT .  h_men  ; 


%  VARIABLE  UNIT  CONVERSION 
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k=l ; 

im=im/57 .3 ; 
delta3=delta3/57 . 3 ; 
thetalt=thetalt/57 . 3 ; 
alplov=alplov/57 .3 ; 
alploh=alploh/57 . 3 ; 
ih=ih/57 . 3 ; 
alplow=alplow/57 . 3 ; 
iw=iw/57 . 3 ; 
swirl=swirl/57 . 3 ; 
dblmddele=dblmddele/57 . 3 ; 
dalmddela=dalmddela/57 . 3 ; 
dthetomddelc=dthetoinddelc/57 . 3  ; 
dthetotddelp=dthetotddelp/57 . 3 ; 
sidearm=sidearm*2 ; 
thetalc=thetalc/57 . 3 ; 
thetals=thetals/57 . 3 ; 
thetao=thetao/57 . 3 ; 
alphaT=alphaT/57 . 3 ; 
betao=betao/57 . 3 ; 


if  sidearm==0 
sidearm=le3 ; 

end 

dphindde lp=pi /si dearm ; 
sidearm=pi/ (sidearm*2) ; 

thetal= -twist; 

set (H_STATUS2 ,  ' STRING ' ,  ' CRUISE  ROUTINE # ) 

set (H_STATUS4 , 9  STRING' ,  'FIRST  OF  THREE  PARAMATER  VARIATIONS') 
tic 

set (H^STATUSl , ' STRING ' ,  ' START  ELAPSED  TIME ' ) 

pause (3 ) 

%  vary  mu 

set ( H_STATUS4 , ' STRING ' ,  ' VARYING  MU ' ) 

stab_calc_mu 

%  vary  thetao 


set (H_STATUS4 , ' STRING ' ,  'VARYING  THETAO ' ) 
stab_calc_to 
%  vary  lambda  prime 

set (H_STATUS4/ 'STRING' ,  'VARYING  LAMDA  PRIME') 
stab_calc_la 

%  Calculating  derivative  from  vectors. 

set (H_STATUS4 ,  ' STRING 7 ,  7  COMPUTING  DERIVATIVES  7 ) 
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dctplots 

if  tailrot==l 
dctplott 

end 

%  CONFIGURATION  CALCULATION 

set (H_STATUS4 , ' STRING ' ,  ' CALCULATING  MATICIES ' ) 

unstructure2 
thetalc=thetalc/57 . 3 ; 
thetals=thetals/57 . 3 ; 
thetao=thetao/57 . 3 ; 
thetao= the tao- . 7  *  thetal ; 
ctsig=vctsig_mu(l/2)  ; 
chsig=vchsig_mu (1,2) ; 
cqsig=vcqsig_mu(l,2) ; 
alphaT=alphaT/57 . 3 ; 
altpp=alphaT; 

Al=-thetalc ; 

Bl=-thetals ; 
ao=betao; 
vl=wi_mu  (1,2)  ; 

V=Vinf ; 

sigma=solidity; 

%  Main  Rotor 
ohm= omega ; 
lv=lvd-xcg; 
g=32 . 2 ; 

A=pi*R*R; 


hiu=hmd-zcg; 
ym=ymd“ycg  ; 
lm=lmd-xcg; 

c= ( sum ( cblade ) / length ( r ) ) ; 

Ab=c*R*b; 

1  amp = v  1  amp_  1  a  (1,2)  ; 
mu=vmu_mu  (1,2)  ; 
ct=CT; 
f=Afv; 

thetat=4/a*ctsig+sqrt ( solidity*ctsig/2 ) ; 

lockno=rho*a*c*RA4/Ib; 

theta75=thetao+ . 75*thetal; 

als=0 ; 

bls=0 ; 

m=GW/g; 

Ic=Ixx*Izz ; 
lh=lhd-xcg; 
hh=hhd-zcg; 
yh=yhd-ycg ; 
hv=hvd-zcg; 
yv=yvd-ycg ; 

delvmax=pi/4 ;  %est  max  verticle  fin  defl  before  stall 
if  maxr==0 
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%  verticle  fin  def lection/maxr 


ddelvddelp=0 ; 
else 

ddelvddelp=delvmax/maxr ; 

end 

if  tailrot==3; 

%  NOTAR 

vlmax=l .  2*vl ;  %  downwash  at  the  boom  slots  (NOTAR) 

1 tn= 1 1  tnd-xcg ; 

ln=l tnd-xcg ; 

yn=ytnd-xcg; 

hn=htnd-zcg; 

htn=hn ; 

Tt= (cqsig*solidity*rho*A* (ohm*R) A2*R-Lvert*lv) /ltn; 

cmun=.55;  %  a  typical  value 

bn=.5*R; 

hslot= . 028*dian/2 ; 
arn=bn/dian; 

At=pi*dian*dian/4 ; 

Rt=dian/2 ; 

end 

if  Swing< . 1 
wing=0 ; 
else 

Aw= Swing ; 

lw=lwd-xcg; 

hw=hwd-zcg; 

yw=ywd-ycg ; 

alpw=CLwing/aw; 

deliw=ewing; 

Zw=Lwing; 
bw=bwing; 
cdow=CDowing ; 
wing=l ; 
end 

Av=Svert ; 
bv=bvert ; 

Ah=Shoriz ; 
bh=bhoriz; 
cdov=CDovert ; 
cdoh=CDohoriz ; 
de li viewing; 
delih=ewing; 
alph=CLhor i z / ah ; 

Zh=Lhoriz ; 

Yv=Lvert ; 

if  Yv< . 1 ; Yv= . 1 ; end; 

deldv=l . 72  * (1-bv/ (20+Rt) ) * (2*Yv/ (2*Rt+bv) ) ; 


%  trim  conditions 
tho=0 ; 
pho=0 ; 
vo=0 ; 

uo=Vinf*cos  (tho)  ; 
wo=uo*  tan  ( tho)  ; 
gamc=0 ; 


88 


%  STABILITY  CALCULATION 


Cmrgrp 

Ctrgrp 

Cbodygrp 

%  computation  of  A,B,C,D  matrices 

All=  (dxdxdotm+dxdxdoth+dxdxdotv+dxdxdotf +dxdxdotw)  /m; 
A12=  (dxdzdotm+dxdzdoth+dxdzdotf +dxdzdotw)  /m; 

A13  =  ( dxdqm)  /m-wo ; 

A14=  -g*cos(tho); 

A15=  (dxdydotm+dxdydotv)  /m; 

A16=  dxdpm/m; 

A17=  0; 

A18=  0; 

% 

A21=  (dzdxdotm+dzdxdoth+dzdxdotf +dzdxdotw) /m; 

A22=  (dzdzdotm+dzdzdoth+dzdzdotf -fdzdzdotw) /m; 

A23=  (dzdqh+dzdqw) /m+uo; 

A24=  -g*cos  (pho)  *sin*(tho)  ; 

A25=  0; 

A26=  0; 

A27=  -g*sin(pho) *cos (tho) ; 

A28-  dzdrm/m; 

% 

A31=  (dmdxdotm+dmdxdoth+dmdxdotf+dmdxdotw)  /Iyy; 

A3 2=  (dmdzdotm+dmdzdoth+dmdzdotf+dmdzdotw)  /Iyy; 

A3  3  =  ( dmdqm+ dmdqh+ dmdqw )  /  Iyy ; 

A3 4=  0; 

A3  5=  dmdydotm/Iyy; 

A3  6=  (dmdpm) /Iyy; 

A3  7=  0; 

A3  8=  0; 


A41=  0; 

A42=  0; 

A43=  cos (pho); 

A44=  0; 

A45=  0; 

A46=  0; 

A47=  0; 

A48=  -sin  (pho); 

% 

A51=  (dydxdotm+dydxdott+dydxdotn+dydxdotv) /m; 

A52=  (dydzdotm+dydzdotn) /m; 

A53=  dydqm/m; 

A54=  -g*sin(pho) *sin(tho) ; 

A5  5  =  ( dy dy do  t m+  dy dy do  1 1 + dy dy do  t n+ dy dy do  t v+ dy dy do  t  f . )  /  m ; 

A5  6  =  ( dy  dpm+  dy  dp  t + dy  dpn+ dy  dp  v )  /  m+ wo  ; 

A57=  g*cos (pho) *cos ( tho) ; 

A58=  (dydrt+dydrn+dydrv) /m-uo; 

% 

A61=  (Izz* (drdxdotm+drdxdott+drdxdotn+drdxdotv) . . . 

+Ixz* (dndxdotm+dndxdott+dndxdotn+dndxdotv) ) /Ic; 

A62=  (Izz* (drdzdotm+drdzdotn) +Ixz* (dndzdotm+dndzdotn) ) /Ic 
A63=  (Izz* (drdqm) +Ixz* (0) ) /Ic; 
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A64=  0; 

A65=  ( Izz* (drdydotm+drdydott+drdydotn+drdydotv+drdydotf ) . . . 

+  Ixz* (dndydott+dndydotn+dndydotv+dndydotf ) ) /Ic; 

A66=  (Izz* (drdpm+drdpt+drdpn+drdpv+drdpw) +Ixz* (dndpt+dndpn+dndpv) )  /  Ic; 
A67=  0; 

A68=  (Izz* (drdrt+drdrn+drdrv+drdrw) +  Ixz* (dndrm+dndrt+dndrn+dndrv) ) /Ic; 
% 

A71=  0; 

A72=  0; 

A73=  sin(pho) *tan(tho) ; 

A74=  0; 

A75=  0; 

A76=  1; 

A77=  0; 

A7  8=  cos (pho) *tan(tho) ; 

% 

A81=  (Ixz* (drdxdotm+drdxdott+drdxdotn+drdxdotv) . . . 

+Ixx* (dndxdotm+dndxdott+dndxdotn+dndxdotv) ) /Ic; 

A82=  (Ixz* (drdzdotm+drdzdotn) +Ixx* (dndzdotm+dndzdotn) ) /Ic; 

A83=  (Ixz* (drdqm) +Ixx* (0) ) /Ic; 

A84=  0; 

A85=  (Ixz* (drdydotm+drdydott+drdydotn+drdydotv+drdydotf ) . . . 

+Ixx* (dndydott+dndydotn+dndydotv+dndydotf ) ) /Ic; 

A86=  (Ixz* (drdpm+drdpt+drdpn+drdpv+drdpw) +Ixx* (dndpt+dndpn+dndpv) ) /Ic; 
A87=  0; 

A88= (Ixz* (drdrt+drdrv+drdrw) +Ixx* (dndrt+dndrv) ) / Ic; 

% 

%  longitudinal  plant  augmented  is  X=[u  w  q  theta]' 

Flonaug= [All  A12  A13  A14;A21  A22  A23  A24;A31  A32  A33  A34; 

A41  A42  A43  A44]; 

Plonaug=poly (Flonaug) ; 

Rlonaug=roots (Plonaug) ; 

%  lateral  plant  augmented  is  X=[v  p  phi  r  psi] ' 

Flataug= [A55  A56  A57  A58  0;A65  A66  A67  A68  0; 

A75  A76  All  A78  0;A85  A86  A87  A88  0;0  0010]; 

Plataug=poly (Flataug) ; 

Rlataug=roots (Plataug) ; 

%  coupled  plant 

Amat= [All  A12  A13  A14  A15  A16  All  A18  0; 

A21  A22  A23  A24  A25  A26  A27  A28  0; 

A3 1  A3 2  A3 3  A34  A35  A36  A37  A38  0; 

A41  A42  A43  A44  A45  A46  A47  A48  0; 

A51  A52  A53  A54  A55  A56  A57  A58  0; 

A61  A62  A63  A64  A65  A66  A67  A68  0; 

All  A12  A73  A74  A75  A76  All  A78  0; 

A81  A82  A83  A84  A85  A86  A87  A88  0; 

000000010]; 

Pcoup=poly (Amat ) ; 

Rcoup=roots (Pcoup) ; 

% 

Bll=  dxdblm*dblmddele/m; 

B12=  dxdthetom*dthetomddelc/m; 
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B13=  dxdalm*dalmddela/m; 

B14=  0; 

% 

B21=  dzdblm*dblmddele/m; 

B22=  dzdthetom*dthetoitiddelc/m; 

B23=  0; 

B24=  0; 

% 

B31=  dmdblm*  dblmdde  1  e  /  Iyy  ; 

B32=  dmdthetom*dthetomddelc/Iyy; 

B33=  dmdalm*dalmddela/Iyy; 

B34=  0; 

% 

B41=  0; 

B42=  0; 

B43=  0;  * 

B44=  0; 

% 

B51=  dy  dblm*  dblmdde  le/m; 

B52=  dydthetom*dthetomddelc/m; 

B53=  dydalm*dalmddela/m; 

B54=  ( (dydphin*dphinddelp+dyddelv*ddelvddelp+dydthetot*dthetotddelp) /m) 

% 

B61=  Izz*drdblm*dblmddele/Ic; 

B62=  (Izz*drdthetom*dthetomddelc+Ixz*dndthetom*dthetomddelc) / Ic; 

B63=  Izz*drdalm*dalmddela/Ic; 

B64= 

( (Izz* (drdphin*dphinddelp+drddelv*ddelvddelp+drdthetot*dthetotddelp) + . . 
Ixz* (dndphin*dphinddelp+dnddelv*ddelvddelp+dndthetot*dthetotddelp) ) /Ic) 


B71=  0; 
B72=  0; 
B73=  0; 
B74=  0; 


B81=  Ixz*drdblm*dblmddele/Ic  ; 

B82=  (Ixz*drdthetom*dthetomddelc+Ixx*dndthetoin*dthetomddelc) /Ic; 

B83=  Ixz*drdalm*dalmddela/Ic; 

B84= 

( (Ixz* (drdphin*dphinddelp+drddelv*ddelvddelp+drdthetot*dthetotddelp) +. . 

Ixx* (dndphin*dphinddelp+dnddelv*ddelvddelp+dndthetot*dthetotddelp) ) /Ic) 
% 

Glonaug= [Bll  B12  B13  B14; 

B21  B22  B23  B24; 

B31  B32  B33  B34; 

B41  B42  B43  B44] ; 

Glataug= [B51  B52  B53  B54; 

B61  B62  B63  B64; 

B71  B72  B73  B74; 

B81  B82  B83  B84; 

0000]; 

%  coupled  input  matrix 

Bmat= [Bll  B12  B13  B14;B21  B22  B23  B24; 

B31  B32  B33  B34;B41  B42  B43  B44; 

B51  B52  B53  B54;B61  B62  B63  B64; 
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B71  B72  B73  B74;B81  B82  B83  B84;0  000]; 


% 

xcouple=12/lockno*e/R/ (l+e/3/R) ; 

%  designed  damping 
de  s  dmdq= dmdqm+ dmdqh + dmdgw  ; 
desdrdp=drdpm+drdpt+drdpw+drdpv+drdpn; 
de  s  dndr = dndrm+  dndr  t + dndr v+ dndr  n  ; 

%  cooper  harper  pilot  rating 
prpi tch=desdmdq/ Iyy ; 
prroll=desdrdp/Ixx; 
pryaw=desdndr/Izz ; 

%  control  power 
cppitch=B31*Iyy; 
cproll=B63  *Ixx; 
cpyaw=B84*Izz ; 
cpipitch=B31 ; 
cpiroll=B63 ; 
cpiyaw=B84 ; 

% 

save  mat_temp  Amat  B^nat 
stab_out_l 
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6.  Ctrgrp.m 


%  Ctrgrp.m 

%  CALLED  BY  Cruise. m 

%  Computes  the  stability  derivatives  of  the  tail  rotor  in  cruise  flight. 
%  Computes  the  stability  derivatives  of  the  NOTAR  in  cruise  flight. 

%  Uses  data  loaded  in  the  workspace  by  JANRAD.M  and  STAB.M. 

% 

%  Modified  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 
% 

if  tailrot==l 


%  Compute  the  stability  derivatives  of  the  tail  rotor  in  cruise 
flight . 

dlampdydott=-l/ ( (ohmt*Rt) * ( l+dctsigdlampt*sigmat / (2*mut) ) ) ; 
dydxdott=rho*Abt* (ohmt*Rt) A2*dctsigdmut*dmudxdot; 
dydydott=rho*Abt* (ohmt*Rt) A2*dctsigdlampt*dlampdydott; 
dydpt^dydydott *ht ; 
dydr t = - dydydo 1 1  * 1 1 ; 

dydthetot=rho*Abt* (ohmt*Rt) A2*dctsigdthetot; 

drdxdott=dydxdott*ht; 

drdydott=dydydott *ht ; 

drdpt=dydpt *ht ; 

dr dr t =dydrt  *ht ; 

drdthetot=dydthetot*ht ; 

dndxdott=-dydxdott*lt ; 

dndydott=-dydydott*lt ; 

dndpt=-dydpt*lt ; 

dndrt=-dydrt*lt ; 

dndthetot=dydthetot*lt* (-1) ; 

% 

%  If  tail  rotor  is  to  be  used,  zero  out  NOTAR  derivatives: 

% 

dydxdotn=0 ; dydydotn=0 ; dydzdotn=0 ; dydpn=0 ; dydrn=0 ; drdxdotn=0 ; 
drdydotn=0 ; drdzdotn=0 ; drdpn=0 ; drdrn=0 ; dndxdotn=0 ; dndydotn=0 ; 
dndzdotn=0 ; dndpn=0 ; dndrn=0 ; 
dndphin=0 ; drdphin=0 ; dydphin=0 ; 
dnddelv=0 ; drddelv=0 ; dyddelv=0 ; 

elseif  tailrot==3 

% 

%  Compute  the  stability  derivatives  of  the  NOTAR  in  cruise  flight. 

% 

qvin= . 5*rho*vlmaxA2 ; 
dydxdotn=0; 

dydcsoar=qyin*bnA2*max { [ (-V/125+1) ,0] ) ; 

%  downwash  blown  off  circulation  control  section  above  125  ft/sec  (75 
kts) 

dcsoardcloar=l ; 
dcloardpslot=2 /pi ; 

dpslotdcmu=dian/ (2*bn) *sqrt (cmun*dian/ (2*hslot) ) *1.5; 

dcmudvimax=-64*hslot/ (dian*vlmax) ; 

dvimaxdzdot=l ; 

dcsoardswirl=-l/pi ; 

dswirldydot=l/vl ; 


dydydo  tn=dydcsoar*dcsoardswirl*dswirldydot; 

dydzdotn=dydcsoar*dcsoardcloar*dcloardpslot*dpslotdcmu*dcmudvimax*dvimax 

dzdot ; 

dydpn=dydydotn*hn ; 
dydrn= -dydydo tn* In ; 
drdxdo tn=dydxdotn*hn ; 
dr  dydo  t  n=  dy  dy  do  t  n  *  hn  ; 
drdzdo tn=dydzdotn* In ; 
drdpn=dydpn*hn ; 
dr  dr  n= dy  dr  n  *  hn  ; 
dndxdo tn=- dy dxdo t n  * In ; 
dndy do  tn= - dydydo t n  * In ; 
dndzdo tn=-dydzdotn* In ; 
dndpn  = - dy dpn *  1  n  ; 
dndrn= - dydrn* In ; 
dydphin= Y tmaxn / (pi/2) ; 
drdphin=dydphin*htn; 
dndphin= -dydphin* 1 tn ; 

% 

%  If  NOTAR  is  to  be  used,  zero  out  tail  rotor  derivatives: 

% 

dydxdott=0 ; dydydott=0 ; dydpt=0 ; dydrt=0 ; dydthetot=0 ; drdxdott=0 ; 
drdydott=0 ; drdpt=0 ; drdrt^O ; drdthetot=0 ; dndxdott=0 ; dndydott=0 ; 
dndpt=0 ; dndrt=0 ; dndthetot=0 ; 

mut=0 ; lampt=0 ; aot=0 ; blst=0 ; alst=0 ; locknot=0 ; 
drdthetot=0 ; dndthetot=0 ; dydthetot=0 ; 
else 

disp('  ' ) 

disp('  ERROR  IN  CTRGRP.M') 

disp ( '  NO  TAIL  ROTOR  OR  NOTAR  INSTALLED') 

disp ( '  CHECK  INPUT  DATA' ) 

disp('  ') 

disp( '  Press  any  key  to  continue. . . ' ) 
pause 

end 

% 

%  return  to  CRUISE. M 
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7, 


Dctplots.m 


%  Dctplots.m 
% 

%  plots  ct/sigma,  ch/sigma,  cq/sigma,  als  and  bis 
%  VERSES 

%  mu,  thetao  and  lamp 

%  fits  a  polynomial  to  the  curve,  takes  a  derivative  of  the  curves 
%  then  evaluates  the  appropriate  parameters  for  CRUISE. M 
% 

%  d(ct/sigma),  d(ch/sigma),  d (cq/ sigma) ,  dais  and  dbls 
%  VERSES 

%  dmu,  dthetao  and  diamp 

%  uses  the  pertubation  points  from  CRANK. M  about  nominal 
% 

%  polyfitting  data  to  obtain  plots  for  n=l 

%  Modified  for  JANRAD  version  6 . 0  by  LT.  David  A.  Heathorn 
n=l  ; 

ectsigmu=polyfit  (vmu_mu,  vctsig_mu,n)  ; 
ectsigtheto=polyfit (vthetao_to, vctsig_to,n) ; 
ectsiglamp=polyf it (vlamp_la, vctsig_la,n) ; 

% 

echsigmu=polyfit  (vmu_mu,  vchsig_mu,  n)  ; 
echsigtheto=polyf it (vthetao_to , vchsig__to , n) ; 
echsiglamp=polyfit (vlamp_la, vchsig_la,n) ; 

% 

ecqsigmu=polyfit (vmu_mu, vcqsig_mu, n) ; 
ecqsigtheto=polyf it (vthetao_to, vcqsig_to, n) ; 
ecqsiglamp=polyf it (vlamp_la, vcqsig_la, n) ; 

% 

ealsmu-polyfit (vmu_mu, vals_mu,n) ; 
ealstheto=polyf it  (vthetao_to,  vals__to , n)  ; 
ealslamp=polyf  it  (vlamp_la,  vals_la,  n)  ; 

% 

eblsmu=polyf  it  (vmu_mu,  vbls_mu,n)  ; 
eblstheto=polyf  it  (vthetao_to,  vbls_to,  n)  ; 
eblslamp=polyf  it  (vlamp_la,  vbls_la,  n)  ; 

% 

%taking  derivatives 
% 

edctsigdmu=derivl (ectsigmu) ; 
edctsigdtheto=derivl (ectsigtheto) ; 
edctsigdlamp=derivl (ectsiglamp) ; 

% 

edchsigdmu=derivl (echsigmu) ; 
edchsigdtheto=derivl (echsigtheto) ; 
edchsigdlamp=derivl (echsiglamp) ; 

% 

edcqsigdmu=derivl (ecqsigmu) ; 
edcqsigdtheto=derivl (ecqsigtheto) ; 
edcqsigdlamp=derivl (ecqsiglamp) ; 

% 

edalsdmu=derivl (ealsmu) ; 
edalsdtheto=derivl (ealstheto) ; 
edalsdlamp=derivl (ealslamp) ; 
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% 

edblsdmu=derivl (eblsmu) ; 
edblsdtheto=derivl (eblstheto) ; 
edblsdlamp=derivl (eblslamp) ; 

% 

%  evaluating  derivatives 
% 

dctsigdmu=polyval (edctsigdmu, vmu_mu (1, 2) ) 
dctsigdtheto=polyval (edctsigdtheto, vthetao_to ( 1 , 2) ) 
dctsigdlamp=polyval (edctsigdlamp, vlamp_la (1,2) ) 

% 

dchsigdmu=polyval (edchsigdmu ,  vmu_mu (1,2) ) 
dchsigdtheto=polyval (edchsigdtheto, vthetao_to ( 1 , 2) ) 
dchsigdlainp=polyval  (edchsigdlamp,  vlamp_la  (1,2)  ) 

% 

dcqsigdmu=polyval  (edcqsigdmu, vmu_mu  (1,2)  ) 
dcqsigdtheto=polyval ( edcqsigdtheto , vthetao_to (1,2) ) 
dcqsigdlamp=polyval (edcqsigdlamp, vlamp_la (1,2) ) 

% 

daldmu=polyval  (edalsdmu,  vmu_mu  (1,2)); 
daldtheto=polyval  (edalsdtheto,  vthetao_to  (1 , 2 )  )  ; 

%  Due  to  poor  modeling  of  flapping  find  daldlamp  by  dif erintiating 
equation  (8)  from 

%  Gessow  and  Myers  "Aerodynamics  of  Helicopters"  pg  186  eq(8)  and  assume 
the  change 

%  in  flapping  is  the  same  as  the  change  in  the  tip  path  plane. 

alnuml= ( l/vmu_mu (1,2)); 

alnum2= ( vctsig_mu (1,2) /solidity/ - 

4/vmu_mu  (1 , 2 )  )  *  (vmu_mu  (1 , 2 )  A2+vlamp_la  (1,2)  ^2)  ^  (—3/2)  ; 
alnum2=2*-vlamp_la  (1,2)  *alnum2  ; 

alnum3=  ( solidity*dctsigdlamp/2 /vmu_mu  ( 1 , 2 )  )  *  (vmu_mu  (1,2)  A2+vlamp_la  (1,2) 

A2 ) A  ( -1/2 )  ; 

daldlamp=alnuml+alnum2+alnum3 ; 


dbldmu=polyval  ( edblsdmu ,  vmu_mu  (1,2)); 
dbldtheto=polyval (edblsdtheto, vthetao_to (1 , 2 ) ) ; 
dbldlamp=polyval (edblsdlamp, vlamp_la ( 1 , 2 ) ) ; 
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8.  Dctplott.m 

%  Dctplott.m 
% 

%  plots  ct/sigmat 
%  VERSES 

%  mut,  thetaot  and  lampt 

%  fits  a  polynomial  to  the  curve,  takes  a  derivative  of  the  curves 
%  then  evaluates  the  appropriate  parameters  for  CRUISE. M 
% 

%  d(ct/sigma) 

%  VERSES 

%  dmut,  dthetaot  and  dlampt 

%  uses  the  pertubation  points  from  JANRAD  about  nominal 
% 

%  polyfitting  data  to  obtain  plots  for  n=l 
%  Modified  for  JANRAD  version  6 . 0  by  David  A.  Heathorn 
n=l  ; 

ectsigmut=polyf it (vmut , vctsigt_mut , n) ; 
ectsigthetot=polyf it ( vthetaot , vctsigt_tot , n)  ; 
ectsiglampt=polyf it (vlampt , vctsigt_lat ,n) ; 

% 

%taking  derivatives 
% 

edctsigdmut=derivl (ectsigmut ) ; 
edctsigdthetot=derivl (ectsigthetot) ; 
edctsigdlampt=derivl (ectsiglampt) ; 

% 

%  evaluating  derivatives 
% 

dctsigdmut=polyval (edctsigdmu, vmut (1,2)); 
dctsigdthetot=polyval (edctsigdtheto, vthetaot (1, 2 ) ) ; 
dctsigdlampt=polyval (edctsigdlamp, vlampt (1 , 2 ) ) ; 
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9, 


DerivLm 


%  DERI VI. M 

%  computes  the  derivative  of  a  polynomial  using  first  order  curve 
% 

%  Created  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 

function [deriv] =derivl (polyno) ; 
der= [1  0 ]  ; 
d=der . *polyno; 
deriv=d(l, 1) ; 
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10.  Eigen_plotter.m 

%  Eigen_ploter .m 

%  M-file  called  by  time_f req_resp_fcn .m  to  plot  eigen  values  of  linear 
model . 

%  Created  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 
global  Amat  Bmat  C  u 


figure 

plot (real (eig (Amat (1:8, 1:8))), imag (eig (Amat (1:8, 1:8))), 'kX'  , ' marker size 7 

,12) 

title ('Eigen  Values  of  Coupled  Matrix  A') 
xlabel('Real  Axis') 
ylabel ( ' Imag  Axis ' ) 
grid 


figure 

plot (real (eig (Amat (1:4, 1:4))), imag (eig (Amat (1:4, 1:4))), 'kX',  'markersize' 

,12) 

xlabel ( ' Real  Axis ' ) 
ylabel ( ' Imag  Axis ' ) 

title ('Eigen  Values  of  Uncoupled  Longitudinal  Matrix  A') 
grid 

figure 

plot  (real  (eig  (Amat  (5:8, 5:8))),  imag  (eig  (Amat  (5:8, 5:8))),  'kX',  'markersize ' 

,12) 

xlabel  ('Real  Axis') 
ylabel ( ' Imag  Axis ' ) 

title ('Eigen  Values  of  Uncoupled  Lateral  Matrix  A') 
grid 
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11.  Hmrgrp.m 


%  Hmrgrp .  m 
%  CALLED  BY  Hover . m 

%  Computes  the  basic  main  rotor  derivatives  at  a  hover 
%  Computes  the  stability  derivatives  of  the  main  rotor  at  a  hover 
%  Uses  data  loaded  in  the  workspace  by  JANRAD.M  and  STAB.M 
% 

%  Compute  the  basic  mainrotor  derivatives  at  a  hover 
% 

%  Modified  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 
% 

dmudxdot==l/ohm/R; 
dlampdzdot=dmudxdot ; 

daldmu=8/3  *thetao+2*thetal-2*vl/ohm/R; 
dbldmu=4/3  *ao; 

dctsigdlamp=inv(8/a+ (sqrt (sigma/2) / (sqrt (ctsig) ) ) ) ; 
dcqsigdlamp=-a/4* ( theta75-2 *vl/ohm/R) ; 

daldq=-16/ (lockno*ohm* (1-e/R) A2) -12*e/R/ (lockno*ohm* (1-e/R) "3) ; 
dbldp=daldq; 

daldp=l/ohm* (1- (192*e/R/ (locknoA2* (1-e/R) A5) ) ) ; 
dbldq=-daldp; 

dalda=12*e/R/ (lockno* (1-e/R) A3) ? 
dbldb=dalda; 

daldb=-l/ (1+ ( ( 144* (e/R) A2) / (lockno^2* (1-e/R) A6) ) ) ; 
dbl  da=  -  da  1  db  ; 

dchsigda=3 /2*ctsig* ( l-a/18* theta75/ctsig ) ; 
dcy s igdb=dchs igda ; 

dmdals=3/4*e/R*Ab*rho*R* (ohm*R) A2*a/lockno; 
drdbls=dmdals  ? 

% 

%  Compute  the  mainrotor  stability  derivatives  at  a  hover 
% 

dxdxdo  tm= - r ho  *  Ab  * (ohm*R) A2*dchsigda*daldmu*dmudxdot ; 
dxdydotm=-rho*Ab* (ohm*R) A2*dcysigdb*dbldmu*dmudxdot ? 
dxdzdotm=  0 ; 

dxdqm=-rho*Ab*  (ohm*Rt)  ^2 *dchsigda*daldq; 
dxdpm=-rho*Ab*  (ohm*R)  A2*dchsigda*daldp  ; 
dxdrm=  0 ; 

dxdthetom=-rho*Ab* (ohm*R) A2* (als+im) *dctsigdtheto; 

dxdalm=-rho*Ab* (ohm*R) A2*dchsigda*dalda; 

dxdblm==-rho*Ab* (ohm*R) A2  MchsigdaMaldk^- 

dy  dx  do  t m=  r ho  *  Ab  * (ohm*R) A2*dcysigdb*dbldmu*dmudxdot ; 

dydy  do  tm=  dxdxdo  tm  ; 

dydzdotm=0 ; 

dy dqm=  dxdpm ; 

dydrm=0 ; 

dy  dpm=  -  dxdqm  ; 

dydthetom=rho*Ab* (ohm*R) A2* (2*bls) *dctsigdtheto; 

dydalm=dxdblm; 

dydblm=-dxdalm; 

dzdxdotm=0; 

dzdydotm=0 ; 

dz  dz  do  tm= - rho  * Ab * (ohm*R) A2*dctsigdlamp*dlampdzdot ; 
dzdpm=0 ; 
dzdqm=0 ; 
dzdrm=0 ; 
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dzdthetom=-rho*Ab*  (ohm*R)  A2*dctsigdtheto; 
dzdblm=0 ; 

drdxdotm=drdbls*dbldmu*dmudxdot+dydxdotm*hm+dzdxdotm*hm; 
dr  dy  do  tm=  -  dmda  1  s  *  da  1  dmu  *  dmudxdo  t + dxdxdo  tm*  hm  ; 
drdzdotm=dzdzdotm*ym; 
drdqm=drdbl  s  *  dbldq+dydqm*hm  ? 
dr drm=  0 ; 

dr  dpm-dr  dbl  s  *  dbl  dp+ dydpm*  hm  ; 

drdthetom=dydthetom*hm+dzdthetom*ym; 

drdalm=drdbls*dblda+dydalm*hm; 

drdblm=drdbls*dbldb+dydblm*hm; 

dmdxdo  tm=  dmda  1  s  *  da  1  dmu  *  dmudxdo  t  -  dxdxdo  t m*  hm  ; 

dmdy  do  tm=  dr  dxdo  tm ; 

dmdzdo  tm=dzdzdotm*  lm  ; 

dmdqm=  dmda  1  s  *  da  1  dq  -  dxdqm *  hm ; 

dmdrm=  0 ; 

dmdpm=  dmda  1  s  *  da  1  dp  -  dxdpm  *  hm  ; 
dmdthetom=-dxdthetom*hm+dzdthetom*lin; 
dmdalm=dmdals*dalda-dxdalm*hm; 
dmdblm= dmda  ls*daldb- dxdblm  *  hm  ; 
dndxdotm=0; 

dndzdotm=rho*Ab*  (ohm*R)  A2*R*dcqsigdlamp*dlampdzdot ; 
dndydotm=0 ; 
dndqm=0 ; 
dndpm=  0 ; 

dndrm=-2*rho*Ab*  (ohm*R)  A2*R*cqsig; 
dndthetom=rho*Ab* (ohm*R) A2 *R*dcqsigdtheto ; 

% 

%  return  to  HOVER. M 
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12.  Hover.m 


%  Hover.m 

%  CALLED  BY  STAB.M 

%  Computes  the  stability  derivatives  at  a  hover. 

%  calls  the  FOLLOWING  subroutines  to  compute  stability  derivatives 
% 

%  HMRGRP 
%  HTRGRP 
%  TRIM 
% 

%  computation  of  stability  derivatives 

%  the  only  derivatives  important  at  hover  are  main  and  tail  rotor 
format  compact 

%  evaluate  dctsigdtheto  dcqsigdtheto  dctsigdthetot  and  dcqsigdthetot 
% 

%  Modified  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 

global  S_SC_INPUT_1  S_SC__INPUT_2  S_PERF_INPUT  S_PERF_OUTPUT  H_S_SC_STAT 
S_H_SC_STAT  Amat  Bmat 

%  Unstructure  input  variables 

S_STAB_INPUT_1=S_SC_INPUT_1 ; 

S_STAB_INPUT_2=S_SC_INPUT_2 ; 

unstructure 

unstructure__stab_input_l 

unstructure_stab_input_2 

H_SC_STAT=S_H„SC_STAT . h_sc_stat ; 

H_STATUS=S_H_SC_STAT . h_s tatus ; 

HJSTATUS1=S__H_SC_STAT . h_s tatusl ; 

H_J3TATUS2  =  S__H_SC_STAT .  h_status2  ; 

H_S  T ATU  S  3 = S_H_S  C_S  TAT . h_status3 ; 

H_STATUS4=S_H_SC_STAT  .  h_s tatus4  ; 

H_BK=S_H_SC_STAT . h_bk ; 

H„GO=S_H_SC_STAT . h_go ; 

H_RUPT=S _H_SCJSTAT .  h_rupt  ; 

H_RES=S  JH_SC_STAT . h_res ; 

H_MEN=  S_H_SC_STAT . h_men ; 


%  Turn  Stab_on  flag  on 
STAB_ON=l ; 

%  VARIABLE  UNIT  CONVERSION 

im=im/57 . 3 ; 
delta3=delta3/57 . 3  ? 
thetalt=thetalt/57 . 3 ; 
alplov=alplov/57 .3 ; 
alploh=alploh/57 . 3 ; 
ih=ih/57 . 3 ; 
alplow=alplow/57 . 3 ; 
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iw=iw/57 . 3 ; 
swirl=swirl/57 . 3 ; 
dblmddele=dblmddele/57 . 3 ; 
dalmddela=dalmddela/57 .3 ? 
dthetomddelc=dthetomddelc/57 . 3 ; 
dthetotddelp=dthetotddelp/57 . 3 ; 
sidearm=sidearm*2 ; 
if  sidearm==0 
sidearm=le3; 

end 

dphinddelp=pi/sidearm; 
sidearm=pi/ (sidearm*2) ; 


vctsig=zeros (1,2) ; 
vcqsig=zeros (1, 2 ) ; 
vthetao= zeros (1,2)  ; 
vctsigt=ones (1,2) ; 
vcqsigt=ones (1, 2) ; 
vthetaot=ones (1,2) ; 

thetal=- twist ; 

GW=GW* 1.0005;  %  .5%  HIGHER 

set (H_STATUS2 ,  ' STRING ' ,  ' HOVER  ROUTINE 7 ) 

set (H_STATUS4,  'STRING7 ,  7  FIRST  OF  TWO  PERTURBATIONS7) 

tic 

set ( H_STATUS1 ,  7  STRING 7 ,  7  START  ELAPSED  TIME 7  ) 

pause (3 ) 

Trim 

%  ***  Calculation  of  output  parameters  from  trim  *** 

Qrotor=mean (DMpsi ) *b; 

solidity=b*  (sum(cblade)  /length (cblade)  )  /  (pi*R)  ; 
CQ=Qrotor/  (Adisk*rho*VtipA2*R)  ; 

CH=Hrotor/ (Adisk*rho*VtipA2 ) ; 

CH_sig=CH/ solidity ; 
vctsig(l, 2) =CT/ solidity; 
vcqsig (1,2) =CQ/ solidity; 
thetas ave= the tao ; 

vthetao (1,2) =thetasave- . 7*thetal ; 
ohm= omega ; 
sigma=solidity; 
g=32 . 174 ; 

A=pi*R*R; 
if  tailrot==l 
Abt=bt*Rt*ct ; 

At=pi*Rt*Rt ; 

mut  =Vinf  /  ohmt  /  Rt  ; 

sigmat=Abt  /At  ; 

lt=ltd-xcg; 

ht=htd-zcg; 

yt=ytd-ycg; 

locknot=rho*at*ct*RtA4/Ibt ; 

Tt=Qrotor/lt ; 

ctsigt=Tt/ (rho*At* (ohmt*Rt) A2) ; 
vlt=sqrt (Tt/2/rho/At) ; 
lamp t= - vl t / ohmt /Rt; 

aot=2/3*locknot*ctsigt/at-3/2*g*RtA2/ (ohmt*Rt) A2; 
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thetaot=3/2* (4/at*ctsigt+sqrt (CQ/2) ) -3 /4*thetalt ; 
alst=0 ; 
blst=0 ; 

theta75t=thetaot+ . 75* thetalt ; 
vlt=sqrt (Tt/2/rho/At) ? 
aoat=theta75t+atan (vlt/ohmt/Rt/ .7)  ; 
cdt= .006+ (aoat*at ) ^2/pi/Rt/ct ; 
phit=sqrt (ctsigt*sigmat/2) ; 
thet=4/at*ctsigt+sqrt (phit) ; 

cqsigt=sigmat/2* (at/2* (thet-phit) *phit+cdt/ 4) ; 


vctsigt (1,2) =ctsigt ; 
vcqsigt (1,2) =cqsigt ; 
vthetaot (1,2) =thetaot ; 

end 

save  stabtemp  vctsig  vcqsig  vthetao  thetal  vctsigt  vcqsigt  vthetaot  g. . 
S_SC_INPUT_1  S_SC_INPUT_2  S_PERF_INPUT  S_PERF__OUTPUT  H_S_SC_STAT 
S_H__SC_JSTAT 

clear 

load  stabtemp 

S_STAB_INPUT_1  =  S_SC_INPUT_1 ; 

S_STAB_INPUT_2=S_SC_INPUT_2  ? 

unstructure 

unstructure_stab_input_l 

unstructure__stab_input_2 

H_SC_STAT=S_H_SC_STAT . h_sc__s tat ; 

H_S  T ATU  S = S_H_S  C_STAT . h_s tatus ; 

H_S  TATU  S 1 = S_H_S  C_S  TAT .  h_s  tatus  1  ? 

H_STATUS2=S_H_SC__STAT .  h_status2  ; 

H_STATUS3=S„H_SC_STAT .h_status3 ; 

H_STATUS4=S_H_SC_STAT .h_status4 ; 

H_BK=  S_H_SC_STAT . h_bk ; 

H_GO=S_H_SC_STAT . h_go ; 

H_RUPT=S_H_SC_STAT . h_rupt ; 

H_RES=S_H_SC_STAT . h„res ; 

H _MEN=S_H_SC_STAT . h_men ? 


%  Turn  Stab_on  flag  on 
STAB_ON=l ; 

%  VARIABLE  UNIT  CONVERSION 

im=im/57 . 3  ; 
delta3=delta3/57 . 3 ; 
thetalt=thetalt/57 . 3 ; 
alplov=alplov/57 . 3 ; 
alploh=alploh/ 57.3; 
ih=ih/57 . 3 ; 
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alplow=alplow/57 . 3 ; 
iw=iw/57 . 3  ; 
swirl=swirl/57 . 3 ; 
dblmddele=dblmddele/57 .3 ; 
dalmddela=dalmddela/57 . 3 ; 
dthetomddelc=dthetomddelc/57 . 3 ; 
dthetotddelp=dthetotddelp/57 . 3 ; 
sidearm=sidearm*2 ; 
if  sidearin==0 
sidearm=le3 ; 

end 

dphinddelp=pi/sidearm; 
sidearm=pi/ (sidearm*2) ; 

set  (H_STATUS4  ,  '  STRING'  ,  'SECOND  OF  TWO  TRIM  PERTURBATIONS') 
set (H_STATUS1, 'STRING' ,[ 'RUN  ELAPSED  TIME  IS  ' , f ix (num2str { toe) ) , ' 
SECONDS' ] ) 
pause (3) 

Trim 

set (H_STATUS4, 'STRING' ,  'PERTURBATIONS  COMPLETE  -  EVALUATING  STABILITY 
DERIVATIVES ' ) 

set (H_STATUS1, 'STRING' , ['RUN  ELAPSED  TIME  IS  ' , f ix (num2str ( toe) ) , ' 
SECONDS ' ] ) 
pause (3) 

Qrotor=mean(DMpsi) *b; 

solidity=b* (sum(cblade) /length (cblade) ) / (pi*R) ; 

CQ=Qrotor/ (Adisk*rho*VtipA2*R) ; 

CH=Hrotor/ (Adisk*rho*VtipA2 ) ; 
vetsig (1,1) =CT/solidity ; 
vcqsig (1, 1) =CQ/solidity; 
thetasave=thetao ; 
vthetao (1,1) =thetasave- . 7  * thetal ; 

dctsigdtheto= (vetsig (1, 1) -vetsig (1, 2) ) / (vthetao (1,1) -vthetao (1,2) ) ; 
dcqsigdtheto= (vcqsig (1,1) -vcqsig (1,2) ) / (vthetao (1,1) -vthetao (1,2)); 
ohm=  omega ; 
s igma= solidity ; 

A=pi*R*R; 
if  tailrot==l 
Abt=bt*Rt*ct ; 

At=pi*Rt*Rt ; 
mu t=Vinf / ohmt /Rt ; 
sigmat=Abt/At ; 
lt=ltd-xcg; 
ht=htd-zcg; 
yt=ytd-ycg; 

locknot=rho*at*ct*RtA4/Ibt ; 

Tt=Qrotor/lt ; 

ctsigt=Tt/ (rho*At* (ohmt*Rt) A2) ; 
vlt=sqrt (Tt/2/rho/At) ; 
lamp t = - vl t / ohmt / Rt ; 

aot=2/3 *locknot*ctsigt/at-3 /2*g*RtA2/  (ohmt*Rt)  A2; 
thetaot=3 /2* (4/at*ctsigt+sqrt (CQ/2 ) ) -3/4*thetalt; 
alst=0; 
blst=0 ; 

theta75t=thetaot+ . 75*thetalt ; 
vlt=sqrt (Tt/2/rho/At) ; 
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aoat=theta75t+atan (vlt/ohmt/Rt/ . 7) ; 
cdt=. 006+ (aoat*at) A2/pi/Rt/ct ; 
phit=sqrt (ctsigt*sigmat/2 ) ; 
thet=4/at*ctsigt+sqrt (phit ) ; 

cqsigt=sigmat/2* (at/2* (thet-phit) *phit+cdt/4) ; 
vctsigt (1,1) =ctsigt; 
vcqsigt (1,1) =cqsigt; 
vthetaot (1,1) =thetaot ; 

dctsigdthetot= (vctsigt (1,2) -vctsigt (1,1))/ (vthetaot (1,2)— 
vthetaot (1,1)); 

dcqsigdthetot= (vcqsigt (1,2) -vcqsigt (1,1))/ (vthetaot (1,2)- 
vthetaot (1,1)); 
end 

%  CONFIGURATION  CALCULATIONS 

theta7=thetao; 
thetao=theta7- . 7*thetal ; 
ctsig=CT/ solidity; 
chsig=CH/ solidity ; 
cqsig=CQ /solidity ; 
altpp=-alphaT; 

Al=-thetalc ; 

Bl=-thetals ; 
ao=betao; 
vl=mean  (vi )  ; 

V=Vinf ; 

%  Main  rotor 
g=32 . 2 ; 
hm=hmd-zcg; 
ym=ymd-ycg  ; 
lm=lmd-xcg; 

c= (sum(cblade) / length (cblade) ) ; 

Ab=c*R*4 ; 
lamp=0 ; 
mu=0; 
ct=CT ; 
f=Afv; 

thetat=4/a*ctsig+sqrt ( sigma*ctsig/2 ) ; 
lockno-rho*a*c*RA4/Ib; 
theta75=thetao+ . 75*thetal ; 
numl=thetao* ( 8/3+32 /45*muA3 /pi ) ; 
num2=thetal* (2+muA4/12) ; 
num3=lamp* (2-mu*mu/2) ; 
denl  =  l+3 /2  *mu*mu-5*muA4/24 ; 
als-mu* (numl+num2+num3 ) /denl-Bl; 
bls=als*12/lockno*e/R/ (l+e/R/3) ; 
m=GW/g; 

Ic=Ixx*Izz; 
if  tailrot==3; 

%  NOTAR 

vlmax=l . 2*vl ;  %  downwash  at  the  boom  slots  (NOTAR) 

delvmax=pi / 4 ; 
if  maxr==0 

ddelvddelp=0 ; 
else 

ddelvddelp=delvmax/maxr ;  %  verticle  fin  def lection/maxr 
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end 

1 tn=l ttnd-xcg ; 
ln=ltnd-xcg; 
yn=ytnd-xcg; 
hn=htnd-zcg; 
htn=hn ; 

Tt=cqsig*sigma*rho*A* (ohm*R) 's2*R/ltn; 
cmun=.55;  %  typical  value 

bn= .  5*R; 

hslot= . 028*dian/2 ; 
arn=bn/dian; 
dthetoddelp  =  0; 

end 

%  trim  conditions 
tho=-T* (im+als) /GW; 
pho=- (T*bls+Tt ) /GW; 
wo=0 ; 
vo=  0 ; 
uo=0  ; 

%  STABILITY  CALCULATION 
% 

Hmrgrp 

Htrgrp 

% 

%  computation  of  A,B,C,D  matrices 
% 

All=  (dxdxdotm) /m; 

A12  =  (dxdzdotm) /m; 

A13=  (dxdqm)  /m-wo; 

A14=  -g*cos(tho); 

A15=  (dxdydotm) /m; 

A16=  (dxdpm) /m; 

A17=  0; 

A18=  (dxdrm) /m+vo; 

% 

A21=  (dzdxdotm) /m; 

A22=  (dzdzdotm)  /m; 

A23=  (dzdqm) /m+uo; 

A24=  -g*cos (pho) *sin(tho) ; 

A25=  (dzdydotm+dzdydott) /m; 

A2  6=  (dzdpm) /m-vo; 

A27=  -g*sin (pho) *cos ( tho) ; 

A28=  (dzdrm) /m; 

% 

A31=  (dmdxdotm) /Iyy ; 

A3  2=  (dmdzdotm) /Iyy; 

A3  3=  (dmdqm) /Iyy; 

A3  4=  0; 

A3  5“  { dmdy do  tm+ dmdy do  1 1 + dmdy do  t n )  /  Iyy  ; 

A36=  (dmdpm) /Iyy; 

A3  7=  0; 

A3  8=  (dmdrm+dmdrt+dmdrn) /Iyy; 

% 

A41=  0; 

A42=  0; 

A43=  cos (pho); 
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A44  =  0; 

A45=  0; 

A46=  0; 

A47=  0; 

A48=  -sin (pho); 

% 

A51=  (dydxdotm) /m; 

A52=  (dydzdotm+dydzdotn) /m; 

A53=  (dydqm)/m; 

A54=  -g*sin (pho) *sin ( tho) ; 

A55=  (dydydotm+dydydott+dydydotn) /m; 

A56=  (dydpm+dydpt+dydpn)  /irw-wo; 

A57=  g*cos (pho) *cos ( tho) ; 

A58=  (dydrm+dydrt+dydrn) /m-uo; 

% 

A61=  (Izz* ( drdxdo tm+ drdxdo tn ) +Ixz* (dndxdotm+dndxdotn) ) /Ic; 

A62=  (Izz* ( drdzdotm+drdzdotn) +Ixz* (dndzdotm+dndzdotn) ) /Ic; 

A63=  (Izz* (drdqm) +Ixz* (dndqm) ) /Ic; 

A64=  0; 

A65  = 

(Izz* (drdydotm+drdydott+drdydotn) +Ixz* (dndydotm+dndydott+drdydotn) ) /Ic; 
A66=  (Izz* (drdpm+drdpt+drdpn) +Ixz* (dndpm+dndpt+dndpn) ) / Ic; 

A67=  0; 

A6  8=  (Izz* (drdrm+drdrt+drdrn) +Ixz* (dndrm+dndrt+dndrn) ) /Ic; 

% 

A71=  0; 

A72=  0; 

A73=  sin(pho) * tan (tho) ; 

A74=  0; 

A75=  0; 

A76=  1; 

A77=  0; 

A78=  cos (pho) *tan (tho) ; 

% 

A81=  (Ixz* ( drdxdo tm+drdxdotn) +Ixx* (dndxdotm+dndxdotn) ) /Ic; 

A82=  (Ixz* (drdzdotm+drdzdotn) +Ixx* (dndzdotm+dndzdotn) ) /Ic; 

A83=  (Ixz* (drdqm) +Ixx* (dndqm) ) /Ic; 

A84=  0; 

A85  = 

(Ixz* ( dr dydo tm+ dr dy do  1 1 + dr dydo t n ) +Ixx* (dndydotm+dndydott+dndydotn) ) / Ic; 
A86=  (Ixz* (drdpm+drdpt+drdpn) +Ixx* (dndpm+dndpt+dndpn) ) /Ic; 

A87=  0; 

A88=  (Ixz* (drdrm+drdrt+drdrn) +Ixx* (dndrm+dndrt+dndrn) ) /Ic; 

% 

%  longitudinal  plant  augmented  X= [u  w  q  theta] 

Flonaug= [All  A12  A13  A14;A21  A22  A23  A24;A31  A32  A33  A34; 

A41  A42  A43  A44] ; 

Plonaug=poly (Flonaug) ; 

Rlonaug=roots (Plonaug) ; 

% 

%  Lateral  plant  augmented  with  X=[v  p  phi  r  psi] ' 

Flataug= [A55  A56  A57  A58  0;A65  A66  A67  A68  0; 

A75  A76  All  A78  0;A85  A86  A87  A88  0;0  0  0  1  0] ; 

Plataug=poly (Flataug) ; 

Rlataug=roots (Plataug) ; 

%  coupled  plant 

Amat= [All  A12  A13  A14  A15  A16  All  A18  0; 
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A21 

A22 

A23 

A24 

A25 

A26 

A27 

A28 

0; 

A31 

A3  2 

A3  3 

A3  4 

A3  5 

A3  6 

A3  7 

A3  8 

0; 

A41 

A42 

A43 

A44 

A45 

A46 

A47 

A48 

0; 

A51 

A52 

A53 

A54 

A55 

A56 

A57 

A58 

0; 

A61 

A62 

A63 

A64 

A65 

A66 

A67 

A68 

0; 

A71 

A72 

A73 

A74 

A7  5 

A7  6 

All 

A7  8 

0; 

A81 

A82 

A83 

A84 

A85 

A86 

A87 

A88 

0; 

0  0 

0  0 

0  0 

0  1 

0]  ; 

Pcoup=poly  (Amat)  ; 

Rcoup=roots (Pcoup) ; 

% 

Bll=  dxdblm*dblmddele/m; 

B12=  dxdthetom*dthetoinddelc/m; 

B13=  dxdalm*dalmddela/m; 

B14=  0; 

% 

B21=  dzdblm*dblmddele/m; 

B22=  dzdthetom*dthetoinddelc/m; 

B23=  0; 

B24=  0; 

% 

B31=  dmdblm*dblmddele/Iyy; 

B32=  dmdthetom*dthetomddelc/Iyy; 

B33=  dmdalm*dalmddela/Iyy; 

B34=  (dmdphin*dphinddelp+dmdthetot*dthetotddelp)  /Iyy ; 

% 

B41=  0; 

B42=  0; 

B43=  0; 

B44=  0; 

% 

B51=  dydblm*dblinddele/m; 

B52=  dydthetom*dthetomddelc/m; 

B53=  dydalm*dalmddela/m; 

B54=  (dydphin*dphinddelp+dydthetot*dthetotddelp) /m; 

% 

B61=  Izz*drdblm*dblmddele/Ic; 

B62=  (Izz*  drdthe tom*dthe tomddel c+Ixz *  dndthet om* dthe t omddelc ) / 1 c ; 
B63=  Izz*drdalm*dalmddela/Ic; 

B64=  (Izz* (drdphin*dphinddelp+drdthetot*dthetotddelp) + . . . 

Ixz* (dndphin*dphinddelp+dndthetot*dthetotddelp) ) / Ic; 

% 

B71=  0; 

B72=  0; 

B73=  0; 

B74=  0;  t 

% 

B81=  Ixz*drdblm*dblmddele/Ic; 

B82=  (Ixz*drdthetom*dthetomddelc+Ixx*dndthetom*dthetomddelc) /Ic; 
B83=  Ixz*drdalm*dalmddela/Ic ; 

B84=  (Ixz* (drdphin*dphinddelp+drdthetot*dthetotddelp) +. . . 

Ixx* (dndphin*dphinddelp+dndthetot*dthetotddelp) ) / Ic; 

% 

Glonaug= [Bll  B12  B13  B14; 

B21  B22  B23  B24; 

B31  B32  B33  B34; 

B41  B42  B43  B44] ; 
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% 

Glataug=[B51  B52  B53  B54; 

B61  B62  B63  B64; 

B71  B72  B73  B74; 

B81  B82  B83  B84; 

0  0  0  0]; 

%  coupled  input  matrix 

Bmat= [Bll  B12  B13  B14;B21  B22  B23  B24; 

B31  B32  B33  B34;B41  B42  B43  B44; 

B51  B52  B53  B54;B61  B62  B63  B64; 

B71  B72  B73  B74;B81  B82  B83  B84;0  000] 

% 

%  cross  coupling 

xcouple=12/lockno*e/R/ (l+e/3/R) ; 

%  designed  damping 
des dmdq= dmdqm ; 
de  s  dr  dp = dr dpm+  drdpt+drdpn; 
desdndr =dndrm+dndrt+dndrn ; 

%  now  cooper  harper  pilot  rating 
prpi t ch=desdmdq/ Iyy ; 
prroll= (drdpm+drdpt+drdpn) /Ixx; 
pryaw=de  s  dndr / 1 z  z ; 

%  control  power 
cppi t ch=B3 1 * Iyy ; 
cproll=B63*Ixx; 
cpyaw=B84*Izz  ; 
cpipitch=B31 ; 
cpiroll=B63 ; 
cpiyaw=B84; 

% 

thetao=theta7 ; 

save  mat_temp  Amat  Bmat 

stab_out_l 


no 


ctf>  c*P  dP  C?P  cW>  cK>  c>P 


13.  Htrgrp.m 


%  Htrgrp.m 
%  CALLED  BY  Hover. m 

%  Computes  the  basic  tail  rotor  or  NOTAR  derivatives  at  a  hover 
%  Computes  the  stability  derivatives  of  the  tail  rotor  or  NOTAR  at  a 
hover 
OR 

Computes  the  stability  derivatives  of  the  NOTAR  at  a  hover 

Uses  data  loaded  in  the  workspace  by  JANRAD.M  and  STAB.M 

Modified  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 

if  tailrot==l 
% 

%  Compute  the  basic  tail  rotor  derivatives  at  a  hover. 

% 

dmudxdo t t = 1 / ohmt / Rt ; 
dlampdydott=-dmudxdott ; 

daldmut=8/3*thetao+2*thetal-2*vl/ohmt/Rt ; 
dbldmut=4/3*aot ; 

dctsigdlampt=inv(8/at+ (sqrt (sigmat/2) / (sqrt (ctsig) ) ) ) ; 

dcqsigdlarapt=-at/4* ( theta75t-2*vlt/ohmt/Rt ) ; 

daldqt=0 ; 

dbldpt=0 ; 

daldpt=0 ; 

dbldqt=0 ; 

daldat=0 ; 

dbldbt=0 ; 

daldbt=0; 

dbldat=0; 

dchsigdat=3/2*ctsig* ( l-at/18*theta75t/ctsig) ; 
dcy s i gdbt =dchs igda t ; 
dmdalst=0 ; 
drdblst=0; 

% 

%  Compute  the  tail  rotor  stabitity  derivatives  at  a  hover 
% 

dydydott=rho*Abt* (ohmt*Rt) A2*dctsigdlampt*dlampdydott ; 
dy  dp  t = dy  dy  do  1 1  *  h  t ; 
dydrt=-dydydott*lt ; 

dydthetot=rho*Abt* (ohmt*Rt) A2*dctsigdthetot ; 

dr  dy  do  1 1 = dy  dy  do  1 1  *  h  t ; 

drdrt=dydrt*ht; 

drdpt=dydpt*ht ; 

drdthetot=dydthetot *ht ; 

dmdydott=rho*Abt*  (ohmt*Rt)  A2  *Rt*dcqsigdlampt*dlampdydott ; 
dmdr  t = - dmdy do 1 1  * 1 1 ; 

dmdthetot=rho*Abt* (ohmt*Rt) A2*Rt*dcqsigdthetot ; 

dndydo 1 1 = - dydydo 1 1  * 1 1 ; 

dndpt=-dydpt*lt ; 

dndr  t = - dy dr t*lt; 

dndthetot=-dydthetot * 1 t ; 

% 

%  If  tail  rotor  is  used,  zero  out  NOTAR  derivatives: 

% 
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dydxdotn=0 ; dydydotn=0 ; dydzdotn=0 ; dydpn=0 ; dydrn=0 ; 
dzdydott=0 ; 

drdxdotn=0 ; drdydotn=0 ; drdzdotn=0 ; drdpn=0 ; drdrn=0 ; 
dmdydotn=0 ;  dmdrn=0 ; 

dndxdotn=0 ; dndydotn=0 ; dndzdotn=0 ; dndpn=0 ; dndrn=0 ; 
dmdphin=0 ; drdphin=0 ; dndphin=0 ; dydphin=0 ; 
elseif  tailrot==3 

%  Compute  the  NOTAR  derivatives  at  a  hover. 

% 

qyin= . 5*rho*vlmaxA2 ; 
dydxdotn=0 ; 
dydcsoar=qvin*bnA2 ; 
dcsoardcloar=l ; 
dcloardpslot=2/pi ; 

dpslotdcmu=dian/ (2*bn) *sgrt (cmun*dian/ (2*hslot ) )*1.5; 

dcmudvimax=-64*hslot/ (dian*vlmax) ; 

dvimaxdzdot=l ; 

dcsoardswirl=-l/pi ; 

dswirldydot=l/vl ; 

dy^ydotn=dydcsoar*dcsoardswirl*dswirldydot ; 

dydzdotn=dydcsoar*dcsoardcloar*dcloardpslot*dpslotdcmu*dcmudvimax*dvimax 
dzdot ; 

dy dpn= dydy do  tn*hn; 
dydrn= -dydydo tn* In ; 
drdxdotn=dydxdotn*hn ; 
drdydo tn=dydydotn*hn ; 
drdzdo tn=dydzdo tn* In ; 
drdpn=dydpn*hn; 
drdrn=dydrn*hn; 
dmdydotn=0  ; 
dmdrn=-dmdydotn*ln; 
dndxdo  tn= - dy dxdo  tn*ln; 
dndydotn= -dydydo tn* In ; 
dndzdo tn=-dydzdotn* In ; 
dndpn= - dydpn  * In ; 
dndrn= - dydrn  * In ; 
dydphin=Ytmaxn/ (pi/2) ; 
drdphin=dydphin*htn ; 
dmdphin=0 ; 

dndphin=-dydphin*ltn; 

% 

%  If  NOTAR  is  to  be  used,  zero  out  tail  rotor  derivatives: 

% 

dydydott=0 ; dydpt=0 ; dydrt=0 ; dydthetot=0 ; drdydott=0 ; 
dzdydott=0 ; 

drdrt=0 ; drdpt=0 ; drdthetot=0 ; 
dmdydott=0 ; dmdrt=0 ; dmdthetot=0 ; 
dndydott=0 ; dndpt=0 ; dndrt=0 ; dndthetot=0 ; 
lampt=0 ;mut=0 ; aot-0 ; blst=0 ; alst=0 ; locknot=0 ; 
dmdthetot=0 ; dndthetot=0 ; drdthetot=0 ; dydthetot=0 ; 
else 

disp ( '  ' ) 

disp ( '  ERROR  IN  HTRGRP . M ' ) 

disp ( '  NO  TAIL  ROTOR  OR  NOTAR  INSTALLED') 

disp ( '  CHECK  INPUT  DATA') 
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df>  6P 


disp('  ') 

disp('  Press  any  key  to  continue. . . ' ) 
pause 
end 

return  to  HOVER. M 
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14.  Imp_plotter.m 

%  Imp__plotter  .m 

%  M-file  called  by  time_freq_resp_fcn.m  to  plot  the  impulse  response 
%  for  specified  input  and  output. 

%  Created  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 


global  Amat  Bmat  u  C  T_STOP  T_INC 


D=0 ; 

t_start=0 ; 
t__inc=T_INC ; 
t_stop=T_STOP; 

t=t_start : t_inc : t_stop; 

if  u(l)==l 


for  j  =  1 : length (C) 
if  C ( j , j ) ==1 
figure 

[num, den] =ss2tf (Amat , Bmat ( : ,  1)  ,  C  ( j  ,  : )  ,  D)  ; 

[ y ] = impu 1 s  e ( num , den , t ) ; 
plot (t,y) 

xlabel ( ' time  ( sec ) ' ) 
grid 

if  7==1 

title  ( 'Response  of  x~velocity  (u)  to  Longitudinal  Cyclic 
Unit  Impulse  Input') 

ylabel ( 'Velocity  ( f t/sec) ' ) 
elseif  j==2 

title (' Response  of  z-velocity  (w)  to  Longitudinal  Cyclic 
Unit  Impulse  Input') 

ylabel ( 'Velocity  (ft /sec) ' ) 
elseif  j==3 

title ( 'Response  of  Pitch  Rate  (q)  to  Longitudinal  Cyclic 
Unit  Impulse  Input') 

ylabel (' Pitch  Rate  (rad/sec)') 
elseif  j==4 

title (' Response  of  Pitch  Angle  (theta)  to  Longitudinal 
Cyclic  Unit  Impulse  Input') 

ylabel (' Pitch  Angle  (rad.)') 
elseif  j==5 

title ( 'Response  of  y-veloctiy  (v)  to  Longitudinal  Cyclic 
Unit  Impulse  Input') 

ylabel { 'Velocity  ( ft/sec) ' ) 
elseif  j==6 

title ( 'Response  of  Roll  Rate  (p)  to  Longitudinal  Cyclic  Unit 
Impulse  Input') 

ylabel ('Roll  Rate  (rad/sec)') 
elseif  j==7 

title ( 'Response  of  Roll  Angle  (phi)  to  Longitudinal  Cyclic 
Unit  Impulse  Input') 
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ylabel('Roll  Angle  (rad)') 
elseif  j==8 

title (' Response  of  Yaw  Rate  (r)  to  Longitudinal  Cyclic  Unit 
Impulse  Input') 

ylabel ( 'Yaw  Rate  (rad/ sec) ' ) 
elseif  j==9 

title ( 'Response  of  Yaw  Angle  (psi)  to  Longitudinal  Cyclic 
Unit  Impulse  Input') 

ylabel ( 'Yaw  Angle (rad) ' ) 
end 

end 

end 


elseif  u (2 ) ==1 


for  j=l : length (C) 
if  C ( j , j ) ==1 
figure 

[num,den] =ss2tf (Amat,Bmat( : , 1) , C ( j , : ) , D) ; 

[y] = impulse (num, den, t ) ; 
plot (t,y) 

xlabel ( ' time  ( sec ) ' ) 
grid 

xlabel ('time  (sec)') 

if  j==l 

title ( 'Response  of  x-velocity  (u)  to  Collective  Unit  Impulse 

Input' ) 

ylabel  ( 'Velocity  (ft/sec)  ' ) 
elseif  j==2 

title (' Response  of  z-velocity  (w)  to  Collective  Unit  Impulse 

Input ' ) 

ylabel  ( 'Velocity  (ft/sec)  ' ) 
elseif  j==3 

title ( 'Response  of  Pitch  Rate  (q)  to  Collective  Unit  Impulse 

Input ' ) 

ylabel (' Pitch  Rate  (rad/sec)') 
elseif  j  ==4 

title ( 'Response  of  Pitch  Angle  (theta)  to  Collective  Unit 
Impulse  Input') 

ylabel ( ' Pitch  Angle  ( rad . ) ' ) 
elseif  j==5 

title ( 'Response  of  y-veloctiy  (v)  to  Collective  Unit  Impulse 

Input ' ) 

ylabel ( 'Velocity  (ft/sec)') 
elseif  j  ==6 

title ( 'Response  of  Roll  Rate  (p)  to  Collective  Unit  Impulse 

Input ' ) 

ylabel ('Roll  Rate  (rad/sec)') 
elseif  j==7 

title ( 'Response  of  Roll  Angle  (phi)  to  Collective  Unit 
Impulse  Input') 

ylabel ('Roll  Angle  (rad)') 
elseif  j==8 

title ( 'Response  of  Yaw  Rate  (r)  to  Collective  Unit  Impulse 

Input ' ) 

ylabel ('Yaw  Rate  (rad/sec)') 
elseif  j==9 
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title ( 'Response  of  Yaw  Angle  (psi)  to  Collective  Unit 
Impulse  Input') 

ylabel ( 'Yaw  Angle (rad) ' ) 
end 

end 

end 


elseif  u(3) ==1 

for  j=l : length (C) 
if  C ( j , j ) ==1 
figure 

[num, den] =ss2tf (Amat , Bmat ( : , 1 ) , C ( j , : ) , D) ; 

[y]  =impulse  (num,  den,  t )  ; 
plot (t,y) 

xlabel ( ' time  (sec) ' ) 

grid 

if  j==l 

title ( 'Response  of  x-velocity  (u)  to  Lateral  Cyclic  Unit 
Impulse  Input') 

ylabel ( 'Velocity  ( ft/sec) ' ) 
elseif  j==2 

title ( 'Response  of  z-velocity  (w)  to  Lateral  Cyclic  Unit 
Impulse  Input') 

ylabel ( 'Velocity  ( ft/sec) ' ) 
elseif  j==3 

title (' Response  of  Pitch  Rate  (q)  to  Lateral  Cyclic  Unit 
Impulse  Input') 

ylabel (' Pitch  Rate  (rad/sec)') 
elseif  j==4 

title (' Response  of  Pitch  Angle  (theta)  to  Lateral  Cyclic 
Unit  Impulse  Input') 

ylabel (' Pitch  Angle  (rad.)') 
elseif  j==5 

title {' Response  of  y-veloctiy  (v)  to  Lateral  Cyclic  Unit 
Impulse  Input') 

ylabel ( 'Velocity  ( ft /sec) ' ) 
elseif  j==6 

title ( 'Response  of  Roll  Rate  (p)  to  Lateral  Cyclic  Unit 
Impulse  Input') 

ylabel ('Roll  Rate  (rad/sec)') 
elseif  j==7 

title ( 'Response  of  Roll  Angle  (phi)  to  Lateral  Cyclic  Unit 
Impulse  Input') 

ylabel ('Roll  Angle  (rad)') 
elseif  j==8 

title ( 'Response  of  Yaw  Rate  (r)  to  Lateral  Cyclic  Unit 
Impulse  Input') 

ylabel ('Yaw  Rate  (rad/sec)') 
elseif  j==9 

title ( 'Response  of  Yaw  Angle  (psi)  to  Lateral  Cyclic  Unit 
Impulse  Input') 

ylabel ('Yaw  Angle (rad)') 
end 


elseif  u ( 4) ==1 

for  j=l : length (C) 
if  C ( j , j ) ==1 
figure 

[num, den] =ss2tf (Amat ,  Bmat ( : , 1) , C ( j , : ) , D) ; 

[y]  =impulse  (num,  den,  t )  ; 
plot ( t , y ) 

xlabel ( ' time  (sec)') 

grid 

if  j==l 

title ( 'Response  of  x-velocity  (u)  to  Pedal  Unit  Impulse 

Input ' ) 

ylabel ( 'Velocity  ( ft/sec) ' ) 
elseif  j==2 

title ( 'Response  of  z-velocity  (w)  to  Pedal  Unit  Impulse 

Input ' ) 

ylabel ( 'Velocity  ( ft/sec) ' ) 
elseif  j==3 

title ( 'Response  of  Pitch  Rate  (q)  to  Pedal  Unit  Impulse 

Input ' ) 

ylabel (' Pitch  Rate  (rad/sec)') 
elseif  j==4 

title ( 'Response  of  Pitch  Angle  (theta)  to  Pedal  Unit  Impulse 

Input ' ) 

ylabel ( ' Pitch  Angle  ( rad . ) ' ) 
elseif  j==5 

title ( 'Response  of  y-veloctiy  (v)  to  Pedal  Unit  Impulse 

Input ' ) 

ylabel ( 'Velocity  ( ft/sec) ' ) 
elseif  j  ==6 

title ( 'Response  of  Roll  Rate  (p)  to  Pedal  Unit  Impulse 

Input ' ) 

ylabel ('Roll  Rate  (rad/sec)') 
elseif  j==7 

title (' Response  of  Roll  Angle  (phi)  to  Pedal  Unit  Impulse 

Input ' ) 

ylabel ('Roll  Angle  (rad)') 
elseif  j==8 

title ( 'Response  of  Yaw  Rate  (r)  to  Pedal  Unit  Impulse 

Input ' ) 

ylabel ( 'Yaw  Rate  (rad/ sec) ' ) 
elseif  j ==9 

title ( 'Response  of  Yaw  Angle  (psi)  to  Pedal  Unit  Impulse 

Input ' ) 

ylabel ('Yaw  Angle (rad) ') 
end 

end 

end 


end 


15.  Save_con.m 


function  save^con ( ) 

%  This  is  the  machine-generated  representation  of  a  MATLAB  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these 
%  objects  are  re-created.  This  may  cause  problems  with  some  callbacks. 

%  The  command  syntax  may  be  supported  in  the  future,  but  is  currently 
%  incomplete  and  subject  to  change. 

% 

%  To  re-open  this  system,  just  type  the  name  of  the  m-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associtated  MAT- file  must  be  on  your  path. 

%  GUI  screen  to  indicate  output  files  have  been  saved 

%  Created  for  JANRAD  version  6.0  by  LT  David  A..  Hea thorn 

load  save_con 

global  H_SAVE_CON 

H_S AVE_C ON  =  figure ( ' Color ' ,  [0.8  0.8  0.8],  ... 

'Colormap' ,mat0,  . . . 

'Name', 'File  Save  Confirmation',  ... 

'NumberTitle' , 'off'  ,  ... 

' PointerShapeCData ' , matl ,  ... 

'Position' , [119  70  435  193],  ... 

'Tag' , ' Fig4 ' ) ; 

b  =  uicontrol ( ' Parent' , H_S AVE^CON ,  . . . 

'Units' , 'points' ,  ... 

' BackgroundColor ',[ 0 . 752941  0.752941  0.752941],  ... 

'FontSize' ,18,  ... 

' Position ',[ 65 . 25  45.75  196.5  60],  ... 

' String' Input  and  Output  Files  Saved.',  ... 

' Style' , ' text' ,  ... 

'Tag' , ' StaticTextl ' ) ; 

assignin{ 'base' , ' H_SAVE_CON' , H„SAVE_CON) ; 
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16.  Sc_save.m 


f ' unc t i on  s  c_s  ave { ) 

%  This  is  the  machine-generated  representation  of  a  MATLAB  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these 
%  objects  are  re-created.  This  may  cause  problems  with  some  callbacks. 

%  The  command  syntax  may  be  supported  in  the  future,  but  is  currently 

%  incomplete  and  subject  to  change. 

% 

%  To  re-open  this  system,  just  type,  the  name  of  the  m-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associtated  MAT-file  must  be  on  your  path. 

%  GUI  screen  to  save  input  and  output  of  Stability  and  Control  Module 

%  Written  for  Janrad  version  6.0  by  LT  David  A.  Heathorn 

load  sc_save 

global  H_datainl  H_dataoutl  H_SC_SAVE 


H_SC_SAVE  =  figure ( ' Color ', [0.8  0.8  0.8],  ... 

'Colormap' ,mat0,  . . . 

' Name ' , ' Save  Input  and  Output ' ,  ... 

' NumberTi tie7 , 'off' ,  ... 

'PointerShapeCData' ,matl,  . . . 

'Position' , [120  342  428  198],  ... 

'Tag' , ' Figl ' ) ; 

b  =  uicontrol (' Parent ' ,H_SC_SAVE,  . . . 

' Units ' , ' points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

' Position' , [25 . 5  110.25  138  17.25],  ... 

' String' ,' Save  all  input  data  as  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_SC_SAVE,  . . . 

'Units' , 'points' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

' Position' , [25 . 5  84.75  138  17.25],  ... 

'String' , 'Save  all  output  data  as  .  .  .  ' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol (' Parent ', H_SC_SAVE,  ... 

' Units ' , ' points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

' Position' , [254 . 25  111  45  15],  ... 

'String' , '_in.mat' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icText2 ' ) ; 
b  =  uicontrol (' Parent ' ,H_SC_SAVE,  . . . 

'Units' , 'points' ,  ... 

' BackgroundColor' ,[0.752941  0.752941  0.752941],  ... 

' Position' , [254 . 25  87  45  15],  ... 

' String' , '_out .mat ' ,  ... 

'Style' , 'text' ,  ... 

' Tag' , ' StaticText2 ' ) ; 

H_datainl  =  uicontrol ( ' Parent ' , H_SC_SAVE,  . . . 

'Units' , 'points' ,  ... 
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'BackgroundColor ' ,[111],  ... 

' Position' , [171  109.5  75  16.5],  ... 

' Fontsize ' , 12 ,  ... 

'Style' , 'edit'  ,  ... 

'String' 

'Callback' , [ . . . 

' set (gcbo, ' ' String' ' , get {gcbo, ' ' String' 

' set (H_dataoutl, ' 'String' ' , get (H_datainl, ' 'String' 
'HorizontalAlignment' , 'right' , . . . 

'Tag' , 'EditTextl' ) ; 

H_dataoutl  =  uicontrol ( 'Parent' ,H_SC_SAVE,  . . . 

'Units ' , 'points ' ,  ... 

' Position' , [172 . 5  87  72  15],  ... 

'String' 

'Style' , 'text' ,  ... 

'HorizontalAlignment' , 'right' , . . . 

' Tag' , ' StaticTextl ' ) ; 
b  =  uicontrol  ( '  Parent '  ,  H_SC__SAVE,  .  .  . 

'Units' , 'points' ,  ... 

'FontSize' ,18,  ... 

' Position' , [25 . 5  32.25  98.25  29.25],  ... 

' String' , ' Save' ,  ... 

'Callback' , ' sc_save„f cn  save' , . . . 

' Tag ' , ' Pushbut tonl ' ) ; 
b  =  uicontrol  ( '  Parent '  ,  H__SC_SAVE,  .  .  . 

'Units' , 'points' ,  ... 

' Fontsize' , 18 ,  ... 

' Position' , [201  30  98.25  29.25],  ... 

'String' , 'Continue' ,  ... 

'Callback' , ' sc_save_f cn  cont' , . . . 

' Tag ' , ' Pushbut tonl ' ) ; 

assignin( 'base' , 'H_datainl' ,H_datainl) ; 
assignin ( 'base ' , 'H_dataoutl' ,H_dataoutl) ; 
assigninf 'base' , ' H_SC_SAVE ' , H_SC_SAVE ) ; 
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17.  sc_save_fcn.m 

function 1  sc_save__f  cn  (Action) 

%  Switchyard  Callback  for  sc_save.m 

%  Written  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 

global  H_PERF_OUT  S__USER_INPUT  S_PERF_INPUT  S_PERF_OUTPUT  S_MATR_VEC .  .  . 
H„datainl  H_dataoutl  H_SC_SAVE  H_SAVE_CON  . . . 

H_outputf ile  H_vecfile  H_inputfile  OUT_COUNT  H_SAVE  S_STAB__INPUT  Amat 
Bmat 

if  nargin 

switch  Action 
case  'cont' 

close  ( H„SC_SAVE ) 
close  (H_SAVE_CON) 

S_PERF_INPUT=S_USER__INPUT ; 
return 

case  '  save ' 

A=Amat ( 1 : 8 , 1 : 8 )  ; 

B=Bmat ( 1 :  8 , 1 :  4 ) ; 

f ilenamel^get (H_datainl , 'String' ) ; 
f ilenamela= [filenamel  '_in' ] ; 

eval  (  [ '  save  '  ,  f  ilenamela,  '  S_USER__INPUT  S_STAB„INPUT '  ]  ) 
unstructure3 

filename2= [filenamel  '_out' ] ; 
eval {['save  ' , f ilename2 , '  A  B']) 
save_con 

end 

end 
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18.  sc_status.m 

function  sc_status() 

%  This  is  the  machine-generated  representation  of  a  MATLAB  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these 
%  objects  are  re-created.  This  may  cause  problems  with  some  callbacks. 

%  The  command  syntax  may  be  supported  in  the  future,  but  is  currently 
%  incomplete  and  subject  to  change. 

% 

%  To  re-open  this  system,  just  type  the  name  of  the  m-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associtated  MAT-file  must  be  on  your  path. 

%  Status  screen  for  Stability  and  Control  Computation 

%  Written  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 

load  sc_status 
global  S_H_SC_STAT 

H_SC_STAT  =  figure ( 'Units' , 'normalized' ,  ... 

'Color' ,[0.80.80.8],  ... 

' Colormap ' , mat 0 ,  ... 

'Name' ,' Stability  &  Control  Status',  ... 

'NumberTitle ' , 'off'  ,  ... 

' PointerShapeCData ' , mat 1 ,  . . . 

'Position' , [0.00125  0.045  0.9975  0.89],  ... 

'Tag' , ' Figl ' ) ; 

b  =  uicontrol ( 'Parent' ,H_SC_STAT,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.10616  0.190385  0.802097  0.767308],  ... 

' Style ' , ' frame ' ,  ... 

'Tag' , ' Frame2 ' ) ; 

H_STATUS3  =  uicontrol ( ' Parent ' , H_SC_STAT,  . . . 

'Units' , 'normalized'  ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'FontSize' , 12 ,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.27654  0.836538  0.440367  0.0538462],  ... 

'String' , 'Stability  and  Control  Analysis  Status  Box' ,  ... 

' Style' , ' text' ,  ... 

' Tag ' , ' StaticTextl ' )  ; 

H_STATUS1  =  uicontrol ( ' Parent ' , H_SC_STAT,  . . . 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'FontSize' ,12,  ... 

' FontWeight ', 'bold' ,  ... 

'Position' , [0.279161  0.678846  0.439056  0.134615],  ... 

'Style' , 'text' ,  ... 

'Tag' , ' StaticText2 ' ) ; 

H_STATUS2  =  uicontrol ( 'Parent' ,H_SC_STAT,  . . . 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'FontSize' ,12,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.281782  0.526923  0.436435  0.140385],  ... 
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' Style' , ' text' ,  ... 

' Tag ' , ' StaticText3 ' ) ; 

H_STATUS  =  uicontrol  {  '  Parent '  ,  H_.SC_.STAT,  .  .  . 

'Units' , 'normalized' ,  ... 

' BackgroundColor ',[ 0 . 752941  0.752941  0.752941],  .. 

'FontSize' ,12,  ... 

' FontWeight ', 'bold' ,  ... 

'Position' , [0.284404  0.369231  0.433814  0.15],  ... 

'Style' , 'text' ,  ... 

' Tag' , ' StaticText4 ' ) ; 

H_STATUS4  =  uicontrol  (  'Parent'  ,H_SC_STAT,  .  .  . 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  .. 

'FontSize' ,12,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.281782  0.203846  0.433814  0.151923], 

' Style' , ' text' ,  ... 

' Tag ' , ' Stat icTextS ' ) ; 

H_BK  =  uicontrol ( ' Parent' ,H_SC_STAT,  . . . 

'Units ' , 'normalized' ,  ... 

'Callback' , ' sc_anal_fcn  back' ,  ... 

'FontSize' ,12,  . . . 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.0767857  0.064  0.178571  0.072],  ... 

'String', '«  Back',  ... 

' Tag ' , ' Pushbuttonl ' ) ; 

H_GO  =  uicontrol ( 'Parent' ,H_SC_STAT,  . . . 

'Units' , 'normalized' ,  ... 

'Callback' , 'global  S_H__SC_STAT ;  sc_status_fcn  anal 
' FontSize ' , 12 ,  ... 

'FontWeight ', 'bold'  ,  ... 

'Position' , [0.301786  0.0613333  0.178571  0.072],  .. 

'String' , 'Analyze' ,  ... 

' Tag' , ' Pushbutton2 ' ) ; 

H_RUPT  =  uicontrol (' Parent ' ,H_SC_STAT,  ... 

'Units' , 'normalized' ,  ... 

'Callback' , ' sc_anal_fcn  interrupt' ,  ... 

'Enable' , 'off' ,  ... 

'FontSize' , 12 ,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' ,  [0.528571  0.0613333  0.178571  0.072],  .. 

' String ' , ' Interrupt ' ,  ... 

' Tag ' , ' Pushbut ton3 ' ) ; 

H_RES  =  uicontrol { ' Parent ' , H_SC_STAT,  . . . 

'Units' , 'normalized'  ,  ... 

'Callback' , ' sc_anal_f cn  resume' ,  ... 

'Enable' , 'off ' ,  ... 

'FontSize' ,12,  ... 

'FontWeight' , 'bold'  ,  ... 

'Position' , [0.755357  0.0613333  0.178571  0.072],  .. 
'String' , 'Resume' ,  ... 

'Tag' , ' Pushbut ton4 ' ) ; 

H_MEN  =  uimenu( 'Parent' ,  H__SCJSTAT,  . . . 

'Label' , ' JANRAD  Options' ,  ... 

'Tag' , 'uimenul' ) ; 
c  =  uimenu( 'Parent' ,H_MEN,  . . . 

'Callback'  ,  ' sc_anal__f cn  quit'  ,  ... 
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' Label ' , ' Quit  JANRAD' ,  ... 

'Tag' , 'JANRAD  Options Subuimenul ' ) ; 
c  =  uimenu ( ' Parent ' , H_MEN/  . . . 

'Callback'  ,  '  sc_anal__f  cn  return',  ... 
'Label' , 'Return  to  Begining' ,  ... 

'Tag' , 'JANRAD  Options Subuimenul ' ) ; 
c  =  uimenu ( 'Parent' /H_MEN/  . . . 

'Callback' , ' sc_status_fcn  delta_input' , 
'Label' , 'Change  Input  Parameters' ,  ... 

' Tag ' , ' Subuimenul ' ) ; 
c  =  uimenu { ' Parent ' , H_MEN,  . . . 

' Callback sc_status_f cn  about',  ... 
'Label' , 'About  Janrad  98  .  .  .  ' ,  ... 

'Separator' , 'on' ,  ... 

' Tag ' , ' Subuimenul ' ) ; 

S_H_SC_STAT .  h_sc_stat=H_SC_STAT; 

S__H_SC„STAT .  h_status=H_STATUS  ; 

S_H_SC_S  TAT . h„s tatusl=H_STATUSl ; 

S_H_SC_STAT .  h_s  t  a  t u  s  2  =H_STATU S  2  ; 

S_H_SC_STAT . h_s  t a  t u  s  3  =H_STATU S  3 ; 

S_H_S  C_S  TAT . h_status4=H_STATUS4 ; 

S_H_S  C_S  TAT . h_bk=H_BK / 

S_H„SC_STAT .  h__go=H_GO  ; 

S_H_SC_STAT . h_rupt=H_RUPT ; 

S_H_SC_S  TAT . h_res=H_RES ; 

S_H_SC_STAT . h_men = H_MEN ; 
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19.  sc_status_fcn.m 

function  sc_status_fcn (Action) 

%  Switchyard  Callback  for  sc_status.m 
%  Written  for  JANRAD  version  6.0  by  LT  David  A 

global  S_H_SC_S TAT  S_PERF_INPUT  S_STAB_INPUT_: 

%  load  input_param 
H_SC_STAT=S_H_SC_STAT . h_sc_stat ; 

H_S  TATU  S = S_H_S  C_ST AT . h_s  tatus ; 
H_STATUS=S_H_SC_STAT . h_s tatus 1  ; 

H_STATU  S = S_H_SC_STAT . h_status2 ; 

H_STATU  S =S_H_SC_STAT . h_status3 ; 
H_STATUS=S_H_SC_STAT . h_status4 ; 
H_BK=S_H_SC_STAT . h_bk ; 

H_GO=S_H_SC_STAT . h_go ; 

H_RUPT= S_H_SC_STAT . h_rupt ; 

H_RES=S_H_SC_STAT . h_res  ; 

H_MEN= S_H_SC_STAT . h_men ; 


if  nargin, 

switch  Action 

case  'back' 

stability_control_input_2 
close (H_SC_STAT) 
case  'anal' 

set (H_GO, 'Enable' , 'off') ; 
set ( H_RUPT , 'Enable' , 'on' ) ; 
set (H_BK, 'Enable'  ,  'off ' )  ; 
set (H_RES, 'Enable' ,  'off ' )  ; 
set (H_MEN, 'Enable' ,  'off ' ) ; 

if  S_PERF_INPUT . Vinf <2 0 
Hover 

el seif  S_PERF_INPUT .Vinf  >=20 
Cruise 

end 

close (H_SC_STAT) 

case  'interrupt' 

set (H_GO, 'Enable' , 'off' ) ; 
set(H_RUPT, 'Enable' , 'off ' ) ; 
set (H_BK, 'Enable' , 'off' ) ; 
set (H_RES , ' Enable ' , ' on' ) ; 
set (H_MEN, 'Enable' ,'on'); 
uiwait; 
case  'resume' 

set ( H_GO , 'Enable'  ,  'off' ) ; 
set ( H_RUPT , 'Enable' , ' on' ) ; 
set(H_BK, 'Enable' , 'off' ) ; 
set (H_RES, 'Enable'  ,  'off')  ; 
set (H_MEN, 'Enable' , 'off ' ) ; 


Heathorn 

S_STAB_INPUT_2 
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uiresume; 
case  'quit' 
quit_gui 
case  'return' 

close  (H_SC_STAT) 
clear  all 
janrad98 

case  '  delta__input ' 

Close  (H_SC_STAT) 
s  t  abi  1  ty_con  t  r  o  l_inpu  t_l 
case  'about' 
about_ j  anrad 

end 

end 


20.  Stab_calc_la.m 


%  Stab_calc_la.m 

%  Calculates  change  in  CT  CH  CQ  als  bis  with  respect  to  change  in 

inflow  ratio. 

%  Written  for  JANRAD  version  6 . 0  -  LT  David  A.  Heathorn 

global  RAD S P C__VAL  NL_TWIST_VAL  NEW_AUX_VAL  FIX_TPP_VAL  NEW_TPP 
S_PERF_OUT PUT  lamdaT_trim 

set (H_STATU S, ' String' , 'EXECUTING  ROTOR  DERIVATIVE  ROUTINE' ) 

set (H_STATUS1/ ' String' , [ 'RUN  ELAPSED  TIME  IS  '  num2str ( f ix ( toe ) )  ' 

SECONDS ' ] ) 

pause (3) 

1  amda  s  a  ve = 1  amdaT___  t  rim 
for  kk=l:3 
if  kk==l 


lamda  prime=l  amda  save-  (  .  5*lamdasave)  ; 
n=l  ; 

vlamp_la  (l,n)  =-lamda_prime; 
elseif  kk==2 


n=2 ; 

1  amda_pr  ime = 1  amda  s  ave  ; 
vlamp_la  (l,n)  --lamda _prime; 

else 

1  amda__pr ime =1  amda s ave  +  (  .  5*lamdasave)  ; 
n=3 ; 

vl  amp_l  a  ( 1 ,  n )  =  - 1  amda_pr  ime  ; 
end 

unstructure2 
thetalc=thetalc/57 . 3 ; 
thetals=thetals/57 . 3 ; 
thetao=thetao/57 . 3 ; 
alphaT=alphaT/57 .3; 
betao=betao/ 57 . 3 ; 

rho=. 002377* (- . 000031*PA+ (- . 002*temp+l . 118) ) ; 


q=0 . 5*rho*Vinf ^2 ; 
Adisk=pi*RyN2 ; 
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Vt ip= omega *R; 
temp_rank=temp+459 . 67 ; 
spd_snd=49 . l*sqrt ( temper ank) ; 

Lwing=q*CLwing*Swing; 

Dfuse=q*Afh; 

CDwing=CDowing+ (CLwingA2/ (ewing*pi* (bwingA2 /Swing) ) ) ; 

CDhoriz=CDohoriz+ (CLhorizA2/ { . 8*pi* (bhorizA2/Shoriz ) ) ) ; 

CDvert=CDovert+ (CLvertA2/ ( . 8*pi* (bvert A2/Svert ) ) ) ; 

Dwing=q*CDwing*Swing; 

Dhoriz=q*CDhoriz*Shoriz ; 

Dvert=q*CDvert*Svert ; 

Dftotal= (Dfuse+Dwing+Dhoriz+Dvert) ; 

%  This  section  is  for  compound  helos,  adjustment  of  aux  thrust 
efficiency  with  airspeed 
if  Vinf /1 . 68781<=7 0 
AUXEFF= . 650 ; 

elseif  Vinf/1.68781<=100 

AUXEFF= . 65+ . 0025* ( (Vinf /l . 68781 ) -70 ) ; 
elseif  Vinf /I .68781<=160 

AUXEFF=. 725+. 0025* ( (Vinf /I . 68781 ) -100 ) ; 
elseif  Vinf /I . 68781<=210 

AUXEFF=.85+. 00007* ( (Vinf /l . 68781 ) -160 ) ; 
else 

AUXEFF= . 847 ; 

end 

%  This  section  provided  aux  thrust  schedule  for  compound  helo 
switch  NEW_AUX_VAL 
case  0 

Dftotal= (Dfuse+Dwing+Dhoriz+Dvert) -Taux; 
case  1 

if  PA==8000 

Taux=16*Vinf/l . 68781 ;  %  linear  increase  in  aux  thrust  up  to  210 

knots 

S_PERF_INPUT . Taux=Taux ; 

S_USER_INPUT . Taux=Taux ; 
elseif  PA==5000 

Taux=17 . 024*Vinf/l . 68781 ;  %  linear  increase  in  aux  thrust  up 

to  210  knots 

S__PERF_INPUT .  Taux=Taux  ; 

S_USER_INPUT . Taux=Taux ; 
elseif  PA==0 

Taux=Df total ; 

S___PERF_INPUT . Taux=Taux ; 

S_USER_ INPUT . Taux=Taux ? 

end 

end 

Lhoriz=q*CLhoriz*Shoriz ; 
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Lvert=q*CLvert*Svert ; 


Lf total=Lwing+Lhoriz ; 
if  FIX_TPP_VAL==1 

alphaT=NEW___TPP ;  %set  tip  path  angle 

else 


Drotor=Hrotor ;  %  keep  the  tip  path  plane  angle  constant 

alphaT_trim=alphaT ; 
al tpp=alphaT ; 


end 


%  ***  thrust  calculation  *** 


T= (GW-Lf total) /cos (alphaT) ; 

CT=T/ (Adisk*rho*Vtip^2 ) ; 

%  ***  setup  blade  radius  elements,  azimuth  elements, 

%  induced  velocity  distributions,  and  determination 

%  of  coning  angle  and  tip  loss  parameter  *** 

B=l-(sqrt(2*CT)/b)-; 

Ref f =B*R; 

Rbar=Ref f-e; 


if  RADSPC_VAL==1 

NEW_rl=[NEW_r,  Reff/R]; 
n= length (NEW_rl) ; 
dr=dif f (NEW_rl) *R; 
r= (NEW_rl (1 :n-l) *R) +dr/2 ; 
else 

dr= (Reff-grip) /nbe; 
r=grip:dr :Ref f-dr ; , r-r+dr/2 ; 

end 

if  NLJTWIST_VAL==1 

NL_TWI ST=NL_TWI ST / 5  7 . 3 ; 
n= length (NL_TWIST) ; 
if  RAD S PC__VAL = = 1 

y= ( (Reff/R) -NEW_r (n) ) * ( (NL_TWIST(n) -NL_TWIST (n-1) ) / (NEW_r (n) - 
NEW_r (n-1) ) ) ; 
else 

y= ( (Reff/R) -r (n) ) * { (NL_TWIST(n) -NL_TWIST (n-1) ) / (r (n)-  r (n-1) ) ) 
end 

NL_TWIST1=  [NL_TWIST  (NL_TWIST  (n)  +y)  ]  ; 
m=length  (NL_TWIST1)  ; 
dTW=diff  (NL_TWIST1)  ; 
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twist= (NL_TWIST1 (1 :m-l) ) +dTW/2 ; 
betat=twist ; 
else 

betat=twist* (0.7- (r/R) ) ; 


end 

rTl=rT2;  %  ***  Set  value  for  rT  as  calculated  for  tirm 


RbarT=rTl*Rbar ; 
mblade=wblade/32 . 17 ; 

%betao=asin ( (T/b*RbarT- ( . 5* (R-e) +e) *wblade) / ( ( . 5* (R- 
e) +e) A2*omegaA2*mblade) ) 

psi=0 : 360/naz : 360-360/naz; , psi=psi ' / 57 . 3 ; 


%%  set  up  vector  of  blade  element  chords  and  then  varies  them  as 
%%  requested  with  the  blade  taper  and  blade  taper  start  position 
%%  rchord=root  chord 

%%  cblade=vector  of  blade  element  chord  lengths 
%%  tr=taper  ratio  (tip/root) 

%%  trst=taper -ratio  start  position  (r/R) 

cblade=rchord*ones (size (r) ) ;  %  gives  all  elements  same  chord 

length  initially 

if  tr==0  %  prevents  division  by  zero  later  in  code 

tr=l;  %  in  case  0  is  enter  for  taper  ratio  instead 
end  %  of  1  for  no  taper 

if  trst==0 

slope= (rchord-rchord*tr) / (Ref f-grip) ;  %  Modifies  each  element 

cblade=cblade-slope* (r-grip) ;  %  chord  length  wrt  input 

tchord=cblade (nbe) ;  %  taper  ratio  which  has 

been 
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mchord=sum(cblade) /nbe;  %  been  converted  into  a  slope 

%  top  portion  takes  into 

else  %  account  the  possibility 

that 

slope= (rchord-rchord* tr ) / (R* (1-trst) ) ;  %  a  0  start  position  is 

really  at 

z=f ix(nbe*trst) ;  %  the  start  of  the  aero 

portion 

if  z<=l  %  prevents  beginning  index  fm  being  zero 

z=l ; 

end 

cblade (z :nbe) =cblade (z :nbe) - (r (z :nbe) -r (z) ) * slope; 
tchord=cblade (nbe) ; 
mchord= sum (cblade) /nbe; 
end 


%  ***  induced  velocity  determination  *** 


vi_trim=lamdaT_trim*Vtip+  (Vinf  *  sin  (alphaT__trim)  )  ? 
vi=lamda__prime*Vtip+  (Vinf  *sin (alphaT)  )  ; 

%  Calulate  new  coning  angle  based  on  change  in  alpha  of  blade 

phi_old=atan  (  (Vinf  *  sin  (alphaT_trim)  +vi_trim)  /Vtip)  ; 
phi__new=atan  ( (Vinf  *sin  (alphaT) +vi) /Vtip) ; 

betao=betao* (1- ( (phi_new-phi_old) / ( thetao-phi_old) ) ) ; 

vi=vi*ones (size (r) ) ; 

%  ***  Calculate  theta  based  on  trim  conditions  *** 

theta=thetao+thetalc . *cos (psi) +thetals . *sin (psi) ; 
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% 


***  rotor  trimming  routine 


*  *  ★ 


set (HJSTATUS , ' String ' , ' CALULATING  ' ) 

set (H_STATUS1, 'String' #  [ 'RUN  ELAPSED  TIME  IS  #  num2str ( f ix ( toe) ) 
SECONDS ' ] ) 
pause (3 ) 

set (H_STATUS2 , 'String' , ' ' ) 


Tpsi=zeros (size (psi) ) ; 
Npsi=zeros (size (psi ) ) ; 
thrcalc 

Trotor=mean (Tpsi) *b; 

Mpsi ( : , k) = zeros (size (psi) ) ; 
tmcalc 


%  ***  calculating  drag  moments  *** 
set (H_STATUS2 , 'String' , 'CALCULATING  DRAG  MOMENT' ) 
set (H_STATUS1, 'String' , [ 'RUN  ELAPSED  TIME  IS  '  num2str ( f ix ( toe) ) 
SECONDS' ] ) 
pause (2 ) 

DMpsi  =  zeros (size (psi)  )  ; 
dmcalc 

Qrotor=mean (DMpsi ) *b; 

%  ***  calculating  rotor  H  force  *** 

set (H_STATUS2 , 'String' , 'CALCULATING  ROTOR  DRAG') 

set (H„STATUS1 , ' String' , [ ' RUN  ELAPSED  TIME  IS  '  num2str ( f ix ( toe) ) 
SECONDS ' ] ) 
pause (2 ) 


dT= [ dT  ddT] ; 
dN=  [dN  ddN]  ; 
dD= [dD  ddD] ; 


for  i=l : length (r) +1, 

Hlc ( i ) =2*sum(dT ( : , i) . *cos (psi ) ) /naz ; 
His ( i ) =2  *sum (dD ( : , i )  . *sin (psi ) ) /naz ; 

end 
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Hrotor= ( ( (b*cos (alphaT) / 2) * (sum{Hls) -sin (betao) *sum(Hlc) ) ) +Drotor) / 2 ; 


CT=Trotor/ (Adisk*rho*VtipA2) ; 

CH=Hrotor/ (Adisk*rho*VtipA2 ) ; 

CQ=Qrotor/ (Adisk*rho*VtipA2*R) ; 

solidity=b* (sum(cblade) / length (r) ) / (pi*R) ; 

vctsig_la ( 1 ,  n) =CT/solidity; 
vcqsig_la (l,n) =CQ/solidity; 
vchsig_la ( 1 , n) =CH/solidity; 
vmu_la  ( 1 ,  n)  =mu ; 


%  Determine  flapping 

lockno=rho*a* ( sum(cblade) /length (r) ) *RA4/Ib; 

Al=-thetalc ; 

Bl=-thetals ; 
ctsig=vctsig_la (l,n) ; 
thetao=thetao- . 7  * thetal ; 


altpp=  (vlamp__la  (1/n)  /mu)  +  ( solidity*ctsig/2 /  (mu*sqrt  (muA2+vlamp_la  (l,n)  A2 

))); 

numl=thetao*mu*8/3 ; 
num2=2  *  thetal  *mu  ; 
num3=-Bl* (1+ ( (3/2 ) *muA2 ) ) ; 

num4=2*mu* (mu*altpp- (ctsig*solidity/2/mu) ) ; 

denl=l-( (muA2 ) / 2 ) ; 

terml=  (numl+num2+num3 )  /deni ; 

num5=12*  (e/R)  ; 

den5=lockno*  (  (l-(e/R)  )  A3 )  *  { 1+  (muA4)  /4)  ; 
t erm2  =num5 / den5 ; 

num6-Al* (1+ ( . 5*muA2 ) ) ; 
num7= (4/3 ) *ctsig; 
num8= (2/3 ) *mu*lockno/a; 
num9=solidity/2*mu; 
den6=l+(3*e/2/R) ; 

term3=num6+  (num7*  (  (num8/den6)  +num9)  )  ; 
vals_la  (1  ,n)  =  ( terml  +  ( term2*term3  )  )  ; 


wi_la  ( 1 ,  n)  =mean  (vi )  ;  • 
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bnuml= (4/3 ) *ctsig; 
bdenl=l+ ( (muA2) / 2) ; 
bnum2  = (2/3 ) *mu*lockno/a; 
bden2=l+ (3*e/2/R) ; 
bterml=solidity/2/mu; 

bterm2=Al+ ( (bnuml/bdenl ) * ( (bnum2/bden2 ) +bterml) ) ; 
bnum3=12*e/R; 

bden3=lockno* ( (1- (e/R) ) "3) * (1- ( .25* (muA4) ) ) ; 
bterm3  =bnum3 /bden3 ; 

bnum4=2*mu* ( (mu* (altpp-altpp) ) - (ctsig*solidity/2/mu) ) ; 
b t erm4 =numl +num2  +num3  +bnum4 ; 
vbls_la ( 1 ,  n) =bterm2+ (bterm3  *bterm4 ) ; 


%tail  rotor 
% 

if  tailrot==l 

ctsig=vctsig_la(l,n)  ; 
cqsig=vcqsig_la  ( 1 ,  n)  ; 
ohm=  omega  ; 
lv=lvd-xcg; 
g=32 . 2 ; 

A=pi*R*R; 


Abt=bt*Rt*ct ; 

At=pi*Rt *Rt ; 
mut=Vinf /ohmt/Rt ; 
sigmat=Abt/At ; 
lt=ltd-xcg; 
ht=htd-zcg; 
yt=ytd-ycg ; 

locknot=rho*at*ct*RtA4/Ibt ; 

Tt= (cqsig*solidity*rho*A* (ohm*R) A2 *R-Lvert*lv) /It ; 
ctsigt-Tt/ (rho*At* (ohmt*Rt) A2) ; 
lampt=-ctsigt*solidity/2/mu; 

aot=2/3  *locknot*ctsigt/at-3/2*g*RtA2/  (ohmt*Rt )  A2  ; 
alst= (-2* ( (4/3*mut*aot+ctsigt*sigmat/2/mut) / (2+mut*mut) ) * (1- 
(4*mut/ (2+3*mut*mut) ) A2 ) *  .  .  . 

tan (delta3 ) ) / ( ( (2-mut*mut) / (2+3*mut*mut ) )  +  (1- 
(4*mut/ (2+3*mut*mut) ) A2) *tan(delta3) A2) ; 

blst=2* ( ( 4/3  *mu*aot* ctsigt* solidity /2 /mu) / (2+mu*mu) ) +alst* tan (delta3 ) 
thetaot= ( (4*ctsigt/at) - 

( . 5+mut*mut/2 ) *thetalt+mut*blst*tan (delta3 ) -lampt) / . . . 

(2/3+mut*mut) -aot*tan (delta3 )  ; 
theta75t=thetaot+ . 75*thetalt ; 
vlt^sqrt (Tt/2/rho/At ) ; 
vctsigt__lat ( 1 , n) =ctsigt ; 
vlampt ( 1 , n) = lampt ; 


end 
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end 
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21.  Stab_calc_mu.m 

%  Stab_calc_mu  .xn 

%  Calculates  change  in  CT  CH  CQ  als  bis  with  respect  to  input 

parameters 

%  Created  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 

global  RADS  PC_VAL  NL_TWIST_VAL  NEW_AUX_VAL  FIX_TPP_VAL  NEW_TPP 
S_PERF_OUTPUT  lamdaT_trim 

set (H_STATUS, 'String' , 'EXECUTING  ROTOR  DERIVATIVE  ROUTINE ' ) 

set (HJSTATUS1, 'String' , [ 'RUN  ELAPSED  TIME  IS  '  num2str ( f ix ( toe) )  ' 

SECONDS '  ]  ) 

pause (3 ) 

%  ***  calculation  of  required  parameters  *** 


Vsave=Vinf ; 
for  kk=l:3 
if  kk==l 

Vinf=Vsave- (Vsave* .15) ; 
n=l  ; 

elseif  kk==2 
Vinf=Vsave; 
n=2 ; 

else 

Vinf=Vsave+ (Vsave*  .  15)  ; 
n=3 ; 

end 

unstructure2 
thetalc=thetalc/57 . 3 ; 
thetals=thetals/57 . 3 ; 
thetao=thetao/57 . 3 ; 
alphaT=alphaT/57 . 3 ; 
betao=betao/57 . 3 ; 


rho=. 002377* (-.00003 1*PA+ (-.002* temp+1. 118) ) ; 

q=0 . 5*rho*Vinf ^2 ; 

Adisk=pi*R^2 ; 

Vtip=omega*R; 
temp_rank=temp+459 . 67 ; 
spd_snd=49 . l*sqrt ( temp__rank) ; 

Lwing=q*CLwing* Swing; 
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Dfuse=q*Afh; 

CDwing=CDowing+  (CLwingA2/ (ewing*pi*  (bwingA2/ Swing)  )  )  ; 

CDhoriz=CDohoriz+  (CLhorizA2/  ( .  8*pi*  (bhorizA2 /Shoriz)  )  )  ; 

CDvert=CDovert+ (CLvertA2/ ( . 8*pi* (bvertA2/Svert ) ) ) ; 

Dwing=q*CDwing* Swing; 

Dhori z=q*CDhoriz* Shoriz ; 

Dvert =q*CDvert  *  Sver t ; 

Df total= (Dfuse+Dwing+Dhoriz+Dvert )  ; 

%  This  section  is  for  compound  helos,  adjustment  of  aux  thrust 
efficiency  with  airspeed 
if  Vinf/1.68781<=70 
AUXEFF  =.650; 

elseif  Vinf /I . 68781<=100 

AUXEFF= .65+. 0025* ( (Vinf /I . 68781) -70 ) ; 
elseif  Vinf /I . 68781<=160 

AUXEFF=. 725+. 0025* ( (Vinf /I . 687 81 ) -100 ) ; 
elseif  Vinf /l . 68781<=210 

AUXEFF=.85+. 00007* ( (Vinf /I . 687 81 ) -160) ; 
else 

AUXEFF= . 847 ; 
end 

%  This  section  provided  aux  thrust  schedule  for  compound  helo 
switch  NEW_AUX_VAL 
case  0 

Df total= (Dfuse+Dwing+Dhoriz+Dvert) -Taux; 
case  1 

if  PA==8000 

Taux=16*Vinf/l. 68781;  %  linear  increase  in  aux  thrust  up  to 

210  knots 

S_JPERF__INPUT .  Taux=Taux  ; 

S_USER_INPUT . Taux=Taux ; 
elseif  PA==5000 

Taux=17.024*Vinf/l. 68781;  %  linear  increase  in  aux  thrust  up 

to  210  knots 

S_PERF_INPUT . Taux=Taux ; 

S__USER_INPUT .  Taux=Taux; 
elseif  PA==0 

Taux=Df total  ; 

S_PERF_INPUT . Taux=Taux ; 

S_USER_INPUT . Taux=Taux ; 

end 

end 

Lhoriz=q*CLhoriz*Shoriz; 

Lvert=q*CLvert *Svert ; 

Lf total=Lwing+Lhoriz ; 
if  F I X_T P P__VAL = = 1 

alphaT=NEW__TPP ;  %set  tip  path  angle 
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else 

Drotor=Hrotor ; 

alphaT=atan2 ( (Df total+Drotor ) , (GW-Lf total) ) ; 

end 

mu=Vinf *cos  (alphaT)  /Vtip; 

%  ***  thrust  calculation  *** 


T= (GW-Lftotal) /cos (alphaT) ; 

CT=T/ (Adisk*rho*Vtip^2 ) ; 

%  ***  setup  blade  radius  elements,  azimuth  elements, 

%  induced  velocity  distributions,  and  determination 

%  of  coning  angle  and  tip  loss  parameter  *** 

B=l- ( sqrt (2*CT) /b) ; 

Ref f =B*R; 

Rbar=Ref f-e; 


if  RADS PC_VAL = = 1 

NEW_rl= [NEW_r,  Reff/R]; 
n=  length  (NEW__rl ) ; 
dr=dif f (NEW_rl) *R; 
r= (NEW_rl ( 1 : n-1 ) *R) +dr/2; 
else 

dr= (Reff-grip) /nbe; 
r=grip:dr :Reff-dr; ,r=r+dr/2; 

end 

if  NL__TWI ST_VAL== 1 

NL_TWIST=NL_TWIST/57 . 3 ; 
n= length (NL_TWIST) ; 
if  RADSPC_VAL==1 

y=  (  (Reff/R)  -NEW_r  (n)  )  *  (  (NL_TWIST(n)  -NL__TWIST  (n-1 )  )  /  (NEW_r  (n)  - 
NEW_r (n-1) ) ) ; 
else 

y=  (  (Reff/R)  -r  (n)  )  *  (  (NL_TWIST(n)  -NLJTWIST  (n-1)  )  /  (r  (n)  -  r  (n-1)  )  )  ; 
end 

NL__TWISTl  =  [NL_TWIST  (NL_TWIST  (n)  +y)  ]  ; 
m= length (NL_TWIST1 ) ; 
dTW=diff (NLJTWIST1) ; 
twist=(NL_TWISTl  (l:m-l)  )+dTW/2; 
betat=twist ; 
else 

betat=twist* (0.7- (r/R) ) ; 


end 
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rTl=rT2;,%  ***  Set  value  for  rT  as  calculated  for  tirm  *** 
RbarT=rTl*Rbar ; 
mblade=wblade/32 . 17 ; 

%  Coning  angle  using  Thrust  given  from  Trim  condition 

betao=asin ( (T/b*RbarT- ( . 5* (R-e) +e) *wblade) /  {  (  .  5* (R- 
e) +e) A2*omega^2*mblade) ) ; 

psi=0 : 360/naz : 360-360/naz ; ,psi=psi ' /57 .3 ; 

%%  set  up  vector  of  blade  element  chords  and  then  varies  them  as 
%%  requested  with  the  blade  taper  and  blade  taper  start  position 
%%  rchord=root  chord 

%%  cblade^vector  of  blade  element  chord  lengths 
%%  tr=taper  ratio  (tip/root) 

%%  trst=taper  ratio  start  position  (r/R) 

cblade=rchord*ones ( size (r) ) ;  %  gives  all  elements  same  chord 

length  initially 

if  tr==0  %  prevents  division  by  zero  later  in  code 

tr=l;  %  in  case  0  is  enter  for  taper  ratio  instead 
end  %  of  1  for  no  taper 

if  trst==0 

slope= (rchord-rchord*tr) / (Ref f-grip) ; 
cblade=cblade~slope* (r-grip) ;  % 

tchord=cblade (nbe) ; 

been 

mchord=sum (cblade) /nbe;  % 

%  top  portion  takes  into 


%  Modifies  each  element 
chord  length  wrt  input 

%  taper  ratio  which  has 

been  converted  into  a  slope 


139 


%  account  the  possibility 


else 
that 

slope= (rchord-rchord*tr ) / (R* (1-trst) ) ;  %  a  0  start  position  is 

really  at 

z=f ix (nbe*trst ) ;  %  the  start  of  the  aero 

portion 

if  z<=l  %  prevents  beginning  index  fm  being  zero 

z=l; 

end 

cblade (z :nbe) =cblade ( z :nbe) - (r ( z :nbe) -r ( z ) ) *slope; 

tchord=cblade (nbe) ; 

mchord- sum (cblade) /nbe; 

end 


%  ***  induced  velocity  determination  *** 

%  Wheatley  Eqn  for  Fwd  fit 

lamdaT=0 ; 
lamda=l; 

while  abs (lamdaT-lamda) >le-4 
lamda=lamdaT; 

lamdaT=mu*sin (alphaT) +0 . 5*CT/sqrt ( lamdaT^2+mu^2 ) ; 

end 

vi=lamdaT*Vtip-Vinf *sin (alphaT) ; 
vi=vi*ones (size (r)  )  ; 

%  ***  Calculate  theta  based  on  trim  conditions  *** 
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theta=thetao+thetalc . *cos (psi) +thetals . *sin (psi) ; 


%  ***  rotor  trimming  routine  *** 


.  set  (H__STATUS ,  'String'  ,  'CALULATING  '  ) 

set (HJ3TATUS1, 'String' ,[ 'RUN  ELAPSED  TIME  IS  '  num2str ( f ix ( toe) )  ' 

SECONDS ' ] ) 
pause (3) 

set (H_STATUS2 , 'String' ,  "  ) 


Tpsi= zeros (size (psi) ) ; 
Npsi=zeros (size (psi) )  ; 
thrcalc 

Trotor=mean (Tpsi ) *b; 

Mpsi (  :  ,  k) =zeros (size (psi) ) ; 
tmcalc 


%  ***  calculating  drag  moments  *** 

set (H„STATUS2 , 'String' , 'CALCULATING  DRAG  MOMENT' ) 

set (H_STATUS1 , ' String' , [ ' RUN  ELAPSED  TIME  IS  '  num2str ( f ix ( toe) )  ' 

SECONDS ' ] ) 
pause (2) 

DMpsi=zeros (size (psi)  )  ; 
dmcalc 

Qrotor=mean (DMpsi) *b; 

%  ***  calculating  rotor  H  force  *** 

set (H_STATUS2 , 'String' , 'CALCULATING  ROTOR  DRAG' ) 

set (HJSTATUS1, 'String' , [ 'RUN  ELAPSED  TIME  IS  '  num2str ( f ix ( toe) )  ' 

SECONDS ' ] ) 
pause (2) 


dT=  [dT  ddT]  ; 
dN=  [dN  ddN]  ; 
dD=  [dD  ddD]  ; 

for  i=l : length (r) +1 , 

Hlc (i) =2*sum(dT( : , i) . *cos (psi) ) /naz; 

His (i) =2*sum(dD ( : , i) . *sin(psi) ) /naz; 

end 
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Hrotor= ( ( (b*cos (alphaT) /2) * (sum(Hls) -sin(betao) *sum(Hlc) ) ) +Drotor) / 2 ; 


CT=Trotor/ (Adisk*rho*VtipA2 ) ; 

CH=Hrotor/ (Adisk*rho*VtipA2 ) ; 

CQ=Qrotor/ (Adisk*rho*VtipA2*R) ; 

solidity=b* (sum(cblade) /length (r) ) / (pi*R) ; 

vctsig_mu { 1 , n) =CT/solidity ; 
vcqsig_mu ( 1 , n) =CQ/ solidity ; 
vchsig__mu  ( 1 ,  n)  =CH/solidity ; 
vmu_mu  ( 1 ,  n)  =mu ; 

%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%NOT  SURE  AFTER 
THIS5 %%%%%%%%%%%%%%%%%%% %%%%%%%%%%% 


altpp=-alphaT; 
thetao=thetao- . 7*thetal; 

lockno=rho*a* (sum(cblade) /length (r) ) *RA4/Ib; 

Al=-thetalc ; 

Bl=-thetals ; 
ctsig=vctsig_mu (1 , n) ; 

numl=thetao*mu*8/3 ; 
num2=2  * thetal*mu ; 
num3=-Bl* (1+ ( (3/2) *muA2) ) ; 

num4=2*mu* (mu*altpp- (ctsig*solidity/2 /mu) ) ; 

denl=l- ( (muA2)/2) ; 

terml= (numl+num2+num3 ) /deni ; 

num5  =  12*  (e/R)  ; 

den5=lockno* ( (l-(e/R) ) A3 ) * ( 1+ (muA4 ) /4 ) ; 
term2=num5/den5 ; 

num6=Al* (1+ ( .5*muA2) ) ; 
n\im7=  (4/3)  *ctsig; 
num8=  (2/3 )  *mu*lockno/a; 
num9=solidity/2*mu; 
den6=l+ (3*e/2/R) ; 

term3=num6+ (num7* ( (num8/den6) +num9) ) ; 

vals_mu (l,n) = ( terml+ ( term2*term3 ) ) ; 

wi_mu  ( 1 ,  n)  =mean  ( vi )  ; 

bnuml=  (4/3 )  *ctsig; 
bdenl=l+ ( (muA2) /2) ; 
bnum2= (2/3) *mu*lockno/a ; 
bden2=l+ (3*e/2/R) ; 
bterml=solidity/2/mu; 

bterm2=Al+ ( (bnuml/bdenl ) * ( (bnum2 /bden2 ) +bterml) ) ; 
bnum3=12*e/R; 

bden3=lockno* ( (1- (e/R) ) A3 ) * ( 1- ( . 25* (muA4) ) ) ; 
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bterm3=bnum3  /bden3  ; 

bnum4=2*mu* ( (mu* (altpp-altpp) ) - (ctsig*solidity/2 /mu) ) ; 
bterm4=numl+num2+num3+bnum4  ; 
vbls_mu  (l,n)  =bterm2+  (bterm3*bterm4)  ; 


%tail  rotor  % 
if  tailrot==l 

ctsig=vctsig_mu(l,n) ; 
cqsig=vcqsig_mu(l,n)  ; 
ohm=  omega  ; 
lv=lvd-xcg; 
g=32 . 2 ; 

A=pi*R*R; 


Abt=bt*Rt*ct; 

At=pi*Rt*Rt ; 
mut=Vinf / ohmt / Rt ; 
sigmat=Abt/At ; 
lt=ltd-xcg; 
ht=htd-zcg; 
yt=ytd-ycg; 

locknot=rho*at*ct*RtA4/Ibt ; 

Tt= (cqsig*solidity*rho*A* (ohm*R) A2*R-Lvert*lv) /It; 
ctsigt=Tt/ (rho*At* (ohmt*Rt) A2) ; 
lampt=-ctsigt*solidity/2/mu; 

aot=2/3*locknot*ctsigt/at-3/2*g*RtA2/ (ohmt*Rt) A2 ; 
alst= (-2* ( (4/3*mut*aot+ctsigt*sigmat/2/mut) / (2+mut*mut) ) * (1- 
(4*mut/ (2+3*mut*mut) ) A2) * . . . 

tan (delta3 ) ) / ( ( (2-mut*mut) / (2+3*mut*mut) )+(l- 
(4*mut/ (2+3*mut*mut) ) A2) *tan(delta3) A2) ; 

blst=2* ( (4/3  *mu*aot*ctsigt*solidity/2/mu) / (2+mu*mu) ) +alst*tan (delta3 ) ; 
thetaot= ( (4*ctsigt/at) - 

{ . 5+mut*mut/2 ) *thetalt+mut*blst*tan (delta3 ) -lampt ) / . . . 

(2/3+mut*mut) -aot*tan (delta3 ) ; 
theta75t=thetaot+ . 75*thetalt; 
vlt=sqrt (Tt/2/rho/At) ; 
vctsigt_mut (1 ,  n) =ctsigt ; 
vmut ( 1 , n) =mut ; 


end 


end 
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22.  Stab_cal_to.m 

%  Stab_calc_to .m 

%  Calculates  change  in  CT  CH  CQ  als  bis  with  respect  to  input 

parameters 

%  Written  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 

global  RADS PC_VAL  NL__TWI ST_VAL  NEW_AUX_VAL  FIX_TPP_VAL  NEWJTPP 
S_PERF_OUTPUT  lamdaT_trim 


set (H_STATUS, 'String7 , 'EXECUTING  ROTOR  DERIVATIVE  ROUTINE') 

set (H_STATUS1, 'String' ,  [ 'RUN  ELAPSED  TIME  IS  '  num2str { f ix ( toe) )  ' 

SECONDS ' ] ) 

pause (3 ) 

%  ***  calculation  of  required  parameters  *** 


for  kk=l:3 


if  kk==l 

unstructure2 
thetao=thetao/57 . 3 ; 
theta_save=thetao ; 
theta_inc=- (1/57 . 3 ) ; 
thetao=thetao+ (theta_inc) ; 
n=l; 

vthetao_to ( 1 , n) =thetao ; 

elseif  kk==2 
unstructure2 
thetao=thetao/57 . 3 ; 
theta_inc=0 ; 
n=2 ; 

vthetao_to (1 ,n) =thetao; 
else 

unstructure2 
thetao=thetao/57 . 3 ; 
theta_inc= (1/57.3) ; 
thetao=thetao+ ( theta_inc) ; 
n=3  ; 

vthetao_to ( 1 , n) =thetao; 
end 

thetalc=thetalc/57 . 3 ; 
thetals=thetals/57 . 3 ; 
alphaT=alphaT/ 57 . 3 ; 
betao=betao/57 . 3 ; 

Vinf=Vsave; 
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rho=. 002377* ( - . 000031*PA+ ( - . 002*temp+l . 118 ) ) ; 

q=0 . 5*rho*Vinf A2  ? 

Adisk=pi*RA2 ; 

Vtip=omega*R; 
temp_rank=temp+459 .  67 ; 
spd_snd=49 . l*sqrt ( temp_rank) ; 

Lwing==q*CLwing*  Swing ; 

Dfuse=q*Afh; 

i 

CDwing=CDowing+ (CLwingA2/ (ewing*pi* (bwingA2 /Swing) ) ) ; 

CDhoriz=CDohoriz+ (CLhorizA2/ ( . 8*pi* {bhorizA2/Shoriz ) ) ) ; 

CDvert=CDovert+ (CLvertA2/ { . 8*pi* (bvertA2/Svert) ) ) ; 

Dwing= q*  CDwing *  Swing ; 

Dhoriz=q*CDhoriz*Shoriz; 

Dvert=q*CDvert*Svert; 

Dftotal= (Dfuse+Dwing+Dhoriz+Dvert ) ; 

%  This  section  is  for  compound  helos,  adjustment  of  aux  thrust 
efficiency  with  airspeed 

if  Vinf /I . 68781<=70 
AUXEFF= . 650 ; 

elseif  Vinf /I . 68781<=100 

AUXEFF= . 65+ . 0025* ( (Vinf /I . 687 81 ) -70 ) ; 
elseif  Vinf /I . 68781<=160 

AUXEFF= .725+. 0025* ( (Vinf /l . 68781) -100 ) ; 
elseif  Vinf /I . 68781<=210 

AUXEFF=. 85+. 00007* ( (Vinf /I . 68781 ) -160 ) ; 
else 

AUXEFF= . 847 ; 
end 

%  This  section  provided  aux  thrust  schedule  for  compound  helo 
switch  NEW_AUX_VAL 
case  0 

Dftotal= (Dfuse+Dwing+Dhoriz+Dvert) -Taux; 
case  1 

if  PA==8000 

Taux=16*Vinf/l . 68781  %  linear  increase  in  aux  thrust  up  to  210 

knots 

S_PERF_INPUT . Taux=Taux; 

S_USER__INPUT .  Taux=Taux  ; 
elseif  PA==5000 

Taux=17 . 024*Vinf/l . 68781  %  linear  increase  in  aux  thrust  up  to 

210  knots 

S_PERF_INPUT . Taux=Taux; 

S_U  SER_INPUT . Taux=Taux ; 
elseif  PA==0 
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Taux=Df total ; 

S_PERF_INPUT . Taux=Taux ; 

S_USER_INPUT . Taux=Taux ; 

end 

end 

Lhoriz=q*CLhoriz*Shoriz; 

Lvert=q*CLvert*Svert ; 

Lf total=Lwing+Lhoriz ; 
if  FIX_TPP__VAL==1 
Drotor=Hr otor ; 

alphaT=NEW_TPP;  %set  tip  path  angle 

else 

lamdaT=lamdaT_trim; 


altpp=asin  (  (lamdaT-  (  .  5*CT/sqrt  ( lamdaTA2+muA2 )  )  )  /mu)  ; 
alphaT=altpp; 

Drotor=Hrotor ; 


end 


%  ***  thrust  calculation  *** 


T= (GW-Lf total) /cos (alphaT) ; 

CT=T/ ( Adisk*rho*VtipA2 ) ; 

%  ***  setup  blade  radius  elements,  azimuth  elements, 

%  induced  velocity  distributions,  and  determination 

%  of  coning  angle  and  tip  loss  parameter  *** 


B=l- (sqrt (2*CT) /b) ; 
Reff=B*R; 

Rbar=Ref f-e; 


if  RADS P C_VAL = = 1 

NEW_r 1= [NEW_r ,  Reff/R] ; 
n=length(NEW_rl) ; 
dr=diff (NEW_rl) *R; 
r= (NEW_rl ( 1 : n-1 ) *R) +dr/2; 
else 

dr=  (Ref  f -grip)  /nbe; 
r=grip:dr :Ref f -dr ; ,r=r+dr/2; 

end 
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if  NLJTOIST_VAL==1 

NL__TWI  ST=NL_TWI ST  /  5  7 . 3  ; 
n=  length  (NL_TWIST)  ; 
if  RADS PC__VAL= = 1 

y=  (  (Ref  f /R)  -NEW_r  (n)  )  *  (  (NL_TWIST  (n)  -NL_TWIST  (n-1)  )  /  ( NEW__r  (n)  - 
NEW__r  (n-1)  )  )  ; 
else 

y=  (  (Ref  f /R)  -r  (n)  )  *  (  (NLJTWIST  (n)  -NL_TWIST  (n-1)  )  /  (r  (n)  -  r  (n-1 )  )  ) 
end 

NL_TWIST1=  [NL_TWIST  <NL_TWIST  (n)  +y)  ]  ; 
m= length  (NL_TWIST1 )  ; 
dTW=dif  f  (NL_TWIST1)  ; 
twist=  (NL_TWIST1  (1  :m-l)  )  +dTW/2  ; 
betat=twist ; 
else 

betat=twist* (0.7- (r/R) ) ; 

end 

rTl=rT2 ; , %  ***  Set  value  for  rT  as  calculated  for  tirm  *** 
RbarT=rTl *Rbar ; 
mblade=wblade/32 . 17 ; 


betao=betao- (theta_inc* (betao/theta— save) ) ; 
psi=0 : 3  60/naz : 3  60-3  60/naz; ,psi=psi ' /57 . 3 ; 


%%  set  up  vector  of  blade  element  chords  and  then  varies  them  as 
%%  requested  with  the  blade  taper  and  blade  taper  start  position 
%%  rchord=root  chord 

%%  cblade=vector  of  blade  element  chord  lengths 
%%  tr=taper  ratio  (tip/root) 

%%  trst=taper  ratio  start  position  (r/R) 


cblade=rchord*ones ( size (r) ) ;  %  gives  all  elements  same  chord 

length  initially 


if  tr==0  %  prevents  division  by  zero  later  in  code 

tr=l;  %  in  case  0  is  enter  for  taper  ratio  instead 
end  %  of  1  for  no  taper 
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if  trst==0 


slope= (rchord-rchord* tr ) / (Ref f-grip) ; 
cblade=cblade-slope* (r-grip) ;  % 
tchord=cblade (nbe) ? 

been 


%  Modifies  each  element 
chord  length  wrt  input 

%  taper  ratio  which  has 


mchord=sum (cblade) /nbe ;  %  been  converted  into  a  slope 

%  top  portion  takes  into 

else  %  account  the  possibility 

that 


slope= (rchord-rchord* tr ) / (R* ( 1-trst ) ) ;  %  a  0  start  position  is 

really  at 

z=f ix{nbe*trst) ;  %  the  start  of  the  aero 

portion 

if  z<— 1  %  prevents  beginning  index  fm  being  zero 


z=l ; 


end 

cblade ( z :nbe) =cblade (z :nbe) - (r (z :nbe) -r (z) ) * slope; 
tchord=cblade (nbe) ; 
mchord=sum( cblade) /nbe; 
end 


%  ***  induced  velocity  determination  *** 

vi=lamdaT*Vtip“Vinf *sin (alphaT) ; 
vi=vi*ones (size (r ) ) ; 


%  ***  Calculate  theta  based  on  trim  conditions  *** 
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theta=thetao+thetalc . *cos (psi ) -f  thetals . *sin (psi ) ; 


%  ***  rotor  trimming  routine  *** 


set (H_STATUS , ' String' , ' CALULATING  ' ) 

set (H_STATUS1, 'String' , [ 'RUN  ELAPSED  TIME  IS  '  num2str ( f ix ( toe) )  ' 

SECONDS ' ] ) 
pause (3 ) 

set (HJSTATUS2, 'String' , ' ') 


Tpsi=zeros (size (psi) ) ; 
Npsi=zeros (size (psi) ) ; 
thrcalc 

Trotor=mean(Tpsi) *b; 

Mpsi ( : , k) =zeros (size (psi) ) ; 
tmcalc 


%  ***  calculating  drag  moments  *** 

set (H_STATUS2 , ' String' , 'CALCULATING  DRAG  MOMENT') 

set (H_STATUS1 ,' String ',[' RUN  ELAPSED  TIME  IS  '  num2str ( f ix { toe) )  ' 

SECONDS ' ] ) 
pause (2 ) 

DMpsi=zeros (size (psi) ) ? 
dmcalc 

Qrotor=mean (DMpsi) *b; 

%  ***  calculating  rotor  H  force  *** 

set (H_STATUS2 , 'String' , 'CALCULATING  ROTOR  DRAG') 

set (H„STATUS1, 'String' , ['RUN  ELAPSED  TIME  IS  '  num2str ( f ix ( toe ) )  ' 

SECONDS ' ] ) 
pause (2) 


dT= [dT  ddT] ; 
dN=  [dN  ddN]  ; 
dD= [dD  ddD] ; 

for  i=l : length (r) +1 , 
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Hlc ( i ) =2  *sum (dT ( : , i)  .*cos(psi) )/naz; 

His ( i ) =2*sum (dD ( : , i ) . *sin(psi) )/naz; 

end 

Hrotor= ( ( (b*cos (alphaT) /2 ) * ( sum (His ) -sin (betao) *sum(Hlc) ) ) +Drotor) / 2 ; 


CT=Trotor/ (Adisk*rho*VtipA2 ) ; 
CH=Hrotor/ (Adisk*rho*VtipA2 ) ; 
CQ=Qrotor/ (Adisk*rho*VtipA2*R) ; 


solidity=b* (sum(cblade) /length (r) ) / (pi*R) ; 

vctsig_to ( l,n) =CT/solidity ; 
vcqsig_to ( 1 ,  n) =CQ/solidity ; 
vchsig_„to  (l,n)  =CH/ solidity; 
vmu_to  ( 1 ,  n)  =mu ; 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %NOT  sure  after 
here****  ******  *  ******************* 


%  assume  alpha  of  shaft  is  zero 

lockno=rho*a* (sum(cblade) /length (r) ) *R"4/Ib; 

thetao-thetao- . 7*thetal ? 

Al=-thetalc; 

Bl=-thetals ; 

ctsig=vctsig_to(l,n) ; 

altpp=-alphaT; 

numl=thetao*mu*8/3 ; 
num2=2*thetal*mu; 
num3=-Bl* (1+ ( (3/2) *muA2) ) ; 

num4=2*mu* (mu*altpp- (ctsig*solidity/2/mu) ) ; 

denl=l- ( (muA2 ) /2 ) ; 

terml= (numl+num2+num3 ) / deni ; 

num5  =  12 *  (e/R)  ; 

den5=lockno*  (  (1-  (e/R)  )  A3 )  *  ( 1+  (muA4 )  / 4)  ? 
term2  =num5 / den5 ; 

num6=Al* (1+ ( . 5*muA2) ) ; 
num7  = (4/3 ) *ctsig; 
num8= (2/3) *mu*lockno/a; 
num9  =  solidity/2  *mu; 
den6=l+ (3*e/2/R) ; 
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term3=nura6+  (num7*  (  (num8/den6 )  +num9  )  )  ; 


vals_to  (1  ,n)  =  (terrain  ( term2*term3  )  )  ; 

wi_to  ( 1 ,  n)  =mean  ( vi )  ; 

bnuml= ( 4/3 ) *ctsig; 
bdenl=l+ ( (muA2)/2) ; 
bnuni2=  (2/3  )  *mu*lockno/a ; 
bden2=l+ (3*e/2/R) ; 
bterml=solidity/2/mu; 

bterm2=Al+ ( (bnuml/bdenl ) * ( (bnum2 /bden2 ) +bterml) ) ; 
bnum3=12*e/R; 

bden3=lockno* ( (l-(e/R) ) A3 ) * ( 1- ( • 25* (muA4 ) ) ) ; 
bterm3=bnum3 /bden3 ; 

bnum4=2*mu* ( (mu* (altpp-altpp) ) - (ctsig*solidity/2/mu)  )  ; 

bterm4=numl+num2+num3  +bnum4 ; 

vbls__to  (1,11)  =bterm2+  (bterm3*bterm4)  ; 

%tail  rotor 
% 

if  tailrot==l 

ctsig=vctsig_to (1, n) ; 
cqsig=vcqsig_to (l,n) ; 
ohm= omega; 
lv=lvd-xcg; 
g=32 . 2 ; 

A=pi*R*R; 


Abt=bt*Rt*ct ; 

At=pi*Rt*Rt; 
mut=Vinf /ohmt/Rt ; 
s  igma  t  =Abt  /  At  ; 
lt-ltd-xcg; 
ht=htd-zcg; 
yt=ytd-ycg; 

locknot=rho*at*ct*RtA4/Ibt ; 

Tt= (cqsig*solidity*rho*A* (ohm*R) A2*R-Lvert*lv) /It; 
ctsigt=Tt/ (rho*At* (ohmt*Rt) A2) ; 
lampt=-ctsigt* solidity/ 2 /mu; 

aot=2/3*locknot*ctsigt/at-3/2*g*RtA2/ (ohmt*Rt) A2 ; 
alst= (-2* ( (4/3*mut*aot+ctsigt*sigmat/2/mut) / (2+mut*mut) ) * (1- 
(4*mut/ (2+3*mut*mut) ) A2) *  .  .  . 

tan (delta3 ) ) / ( ( (2-mut*mut) / (2+3 *mut*mut ) ) + (1- 
(4*mut/ (2+3*mut*mut) ) A2) *tan(delta3) A2) ; 

blst=2* ( (4/3*mu*aot*ctsigt*solidity/2/mu) / (2+mu*mu) ) +alst*tan (delta3 ) ; 
thetaot= ( (4*ctsigt/at ) - 

( . 5+mut*mut/2 ) *thetalt+mut*blst*tan <delta3 ) -lampt) / . . . 

(2/3+mut*mut) -aot*tan (delta3 ) ; 
theta75t=thetaot+ . 75*thetalt ; 
vlt=sqrt (Tt/2/rho/At) ; 
vctsigt_tot (l,n) =ctsigt; 
vthetaot ( 1 ,  n) =thetaot ; 
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end 


end 
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23.  stab_controI_input_fcn.m 

function  stab_control_input_f cn (Action) 


%  Switchyard  Callback  function  for  stab_control_input__l .m  and 

stab_control_input_2 .m 

%  Written  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 

global  S_STAB_INPUT_1  S_STAB_INPUT_2  H_STAB_IN  S_PERF_INPUT 
S_PERF_OUTPUT  H„STAB„INl . . . 

H_STAB_IN2  S_SC_INPUT_1  S_SC_INPUT_2 

if  isempty (nargin) 
return 

end 


switch  Action 
case  'contl' 

if  isempty (get field ( S_SC_INPUT_1 , 'lb' ) | . . . 
getfield (S_SC_INPUT_1 , 'hmd' ) | . . . 
get field ( S_SC_INPUT_1 , ' lmd' )  ... 

getfield (S_SC_INPUT_1, 'ymd' )  ... 

getfield (S_SC_INPUT_1, 'im' ) | . . . 
getfield ( S_SC_INPUT_1 , ' hvd ' )  ... 

getfield (S_SC_INPUT_1 , ' lvd' )  ... 

get field ( S_SC_INPUT_1 , 'yvd' )  ... 

getfield(S_SC_INPUT_l, 'alplov' ) | . . . 
get field (S_SC_INPUT_1, 'clvertmax' ) | . . . 
getfield (S_SC_INPUT_1, 'av' ) | . . . 
get field (S_SC_INPUT_1, 'hhd' ) | . . . 
getf ield (S_SC_INPUT_1 , 'lhd' )  j . . . 
get  f ield ( S_SC_INPUT_1 , 'alploh' )  | . . . 
getfield(S_SC_INPUT_l/ 'ih' )  ... 

get field ( S_SC_INPUT_1 , 'ah' )  ... 

getfield ( S_SC_INPUT_1 , 'qhq' ) | . . . 
getfield ( S_SC_INPUT_1 , 'vhvl' ) | . . . 
getf ield (S_SC_INPUT_1, ' detafdalpfh' ) | . . . 
getfield (S_SC_INPUT_1, 'htd' )  ... 

getfield (S_SC_INPUT_1, 'ytd' )  ... 

getfield(S_SC_INPUT_l, 'bt' )  . . . 

getfield (S_SC_INPUT_1, 'ct' )  ... 

getf ield (S_SC_INPUT_1, 'Rt' )  ... 

getfield (S_SC_INPUT_1, 'at' )  ... 

getfield ( S_SC_INPUT_1 , 'ohmt' ) | . . . 
getfield (S_SC_INPUT_1, 'Ibt' ) | . . . 
getf ield (S_SC_INPUT_1 , 'delta3 ' ) | . . . 
getfield(S_SC_INPUT_l, 'thetalt' ) ) ; 

empty_boxes 

return 

end 

s  tabi 1 i ty_cont r ol_inpu t_2 
close (H_STAB_IN1) 

case  ' cont2 7 

if  isempty (getf ield(S_SC_INPUT_2 , 'hwd' ) | . . . 
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get field (S_SC_INPUT_2, 'lwd' ) | . . . 

'ywd' )  j . . . 

' alplow' ) | . . . 

' iw' )  ... 

' aw' )  ... 

' ctw' ) I . . . 

' crw' ) | . . . 

' vwvl ' ) | . . . 

' detafdalpfw' ) | 
' zcg' )  ... 

'xcg' )  ... 

'ycg' )  ... 

' I xx ' )  ... 

' iyy' )  ••• 

'Izz')  ... 

' Ixz ' )  ... 

' vf vl ' )  ... 

' htnd ' )  ... 

' 1 tnd ' )  ... 
'ytnd' )  ... 

'dian')  ... 
'swirl' ) | . . . 

' Y tmaxn ' ) | . . . 

' lttnd' ) | . . . 
'dblmddele')  .. 
'dalmddela')  .. 
' dthetomddelc ' ) 
' dthetotddelp ' ) 
' sidearm' ) | . . . 
getf ield (S_SC_INPUT_2 , 'maxr' ) ) ; 

empty_boxes 

end 

close (H_STAB_IN2) 
sc_status 

case  'cnx' 
analysis 
close  (gcf) 
case  'backl' 
options 

close  ( H_PERF_IN1 ) 
case  'back2' 

stability_control_input_l 
close  (H_PERF_IN2) 
case  'print' 

set (gcf, ' PaperOrientation' , 'landscape') 
set (gcf , ' PaperPosition' , [ . 5  .5  10  7.5]) 
print  -dwinc 
case  'return' 
janrad98 
close  all 
case  'quit' 
quit_gui 
case  'about' 

about_ j  anrad 
case  'mesh' 


getf ield ( S_SC_INPUT_2 , 
getf ield (S_SC_INPUT_2 , 
get field (S_SC_INPUT_2 , 
ge  t  f i e 1 d ( S_SC_INPUT_2 , 
ge t  f i e Id ( S_SC_INPUT_2 , 
getfield( S_SC_INPUT_2 , 
get field (S_SC_INPUT_2 , 
getf ield (S_SC_INPUT_2 , 
getf ield ( S_SC_INPUT_2 , 
getf ield (S_SC_INPUT_2 , 
get  field ( S_SC_INPUT_2 , 
getf ield (S_SC_INPUT_2 , 
getf ield (S_SC_INPUT_2 , 
getf ield ( S_SC_INPUT_2 , 
getf ield (S_SC_INPUT_2 , 
get  field ( S_SC_INPUT_2 , 
getf ield (S_SC_INPUT_2 , 
get  f ield ( S_SC_INPUT_2 , 
getf ield (S_SC_INPUT_2 , 
getf ield(S_SC_INPUT_2 , 
getf ield ( S_SC_INPUT_2 , 
getf ield ( S_SC_INPUT_2 , 
getf ield ( S_SC_INPUT_2 , 
getf ield (S_SC_INPUT_2 , 
getf ield ( S_SC_INPUT_2 , 
getf ield (S_SC_INPUT_2 , 
getf ield (S_SC_INPUT_2 , 
get  f i eld ( S_SC_INPUT_2 , 
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airfoil_mesh 
case  'ok' 

close  (H_AF_MESH) 

end 


24.  stab_out_l.m 

function  stab_out_l() 

%  This  is  the  machine-generated  representation  of  a  MATLAB  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these 
%  objects  are  re-created.  This  may  cause  problems  with  some  callbacks. 

%  The  command  syntax  may  be  supported  in  the  future,  but  is  currently 
%  incomplete  and  subject  to  change. 

% 

%  To  re-open  this  system,  just  type  the  name  of  the  m-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associtated  MAT-file  must  be  on  your  path. 

%  Created  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 

load  stab_out_l 
global  Amat  Bmat  H_STAB_0UT 
load  mat_temp 
A=Amat ( 1 : 8 , 1 : 8 )  ; 

B=Bmat (1:8, 1:4) ; 


H_STAB_0UT  =  figure ( ' Color '  , [0.8  0.8  0.8],  ... 

7 Colormap' , matO ,  ... 

' PointerShapeCData' ,matl,  . . . 

'Name' , 'Linear  Model  of  Helicopter',  ... 

' Position' , [2  28  798  534],  ... 

'Units' , 'points' , . . . 

'NumberTitle' , 'off' ,  ... 

'Tag' , ' Figl ' ) ; 

b  =  uicontrol ( 'Parent' ,H_STAB_OUT,  . . . 

'Units' , 'points' ,  ... 

'Position' , [2.25  189.75  435.75  207.75],  ... 

' Style ' , ' frame ' ,  ... 

'Tag' , 'Framel' ) ; 

b  =  uicontrol  ( 'Parent'  , H_STAB__OUT ,  .  .  . 

'Units ', 'points ' ,  ... 

'Position' , [3  0.75  434.25  183.75],  ... 

' Style ' , ' frame ' ,  ... 

' Tag' , ' Frame2 ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units  'points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

' Horizontal Alignment ' , ' lef t ' ,  ... 

'Position' , [443 .25  128.25  52.5  255.75],  ... 

' Style ' , ' frame ' ,  ... 

'Tag' , ' Frame3 ' ) ; 

b  =  uicontrol ( 'Parent' ,H_STAB_OUT,  . . . 

'Units ' , 'points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [500.25  237.75  93.75  145.5],  ... 

' Style ' , ' frame ' ,  ... 

'Tag' , ' Frame4 ' ) ; 

b  =  uimenu ( ' Parent ' , H_STAB_OUT,  . . . 

' Label ' , ' JANRAD  Options ' ,  ... 

' Tag ' , ' uimenul ' ) ; 
c  =  uimenu (' Parent ', b,  ... 

'Callback'  ,  '  stab_out__l_fcn  quit'  ,  ... 
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'Label' , 'Quit  JANRAD',  ... 

'Tag' , ' JANRAD  OptionsSubuimenul' ) ,- 
c  =  uimenu (' Parent ' ,  b,  ... 

'Callback' , ' stab_out_l_f cn  return' ,  ... 

'Label' , 'Return  to  Begining' ,  ... 

'Tag' , 'JANRAD  OptionsSubuimenul' ) ; 
c  =  uimenu (' Parent ', b,  ... 

'Callback' , ' stab_out_l_f cn  delta_input' ,  ... 

'Enable' , 'off' ,  ... 

' Label ' , ' Change  Input  Parameters '  ,  ... 

' Tag ' , ' Subuimenul ' ) ; 
c  =  uimenu ( 'Parent' ,  b,  ... 

'Callback' , ' perf ormance_input_f cn  about' ,  ... 

'Label' , 'About  Janrad  9  8  .  .  .  '  ,  ... 

'  Separator  '/on',  ... 

' Tag ' , ' Subuimenul ' ) ; 

b  =  uicontrol  ( 'Parent'  ,  H__STAB_OUT ,  .  .  . 

'Units ' , 'points ' ,  ... 

'Position' , [465.75  55.5  116.25  23.25],  ... 

' String' , 'Save  to  File',  ... 

'Callback' , ' stab_out_l_f cn  save' , . . . 

'Tag' , 'Pushbuttonl' ) ; 
b  =  uicontrol ( 'Parent' ,H_STAB_OUT,  . . . 

' Units ' , ' points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941] 

' FontSize' , 18 ,  ... 

'Position' , [58.5  375.75  322.5  18.75],  ... 

'String', 'A  Matrix  of  the  form  xdot=Ax+Bu' ,  .. 

' Style' , ' text' ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent' ,H_STAB_OUT,  . . . 

'Units' , 'points' ,  ... 

' BackgroundColor ',[ 0 . 752941  0.752941  0.752941] 
'FontSize' ,18,  ... 

'Position', [85.5  92.25  92.25  18.75],  ... 

' String ' , ' B  Matrix ' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icText2 ' ) ; 
b  =  uicontrol { 'Parent' ,H_STAB_0UT,  . . . 

'Units' , 'points' ,  ... 

'Position' , [466.5  94.5  114.75  23.25],  ... 

'String' , 'Coupled  Response' ,  ... 

'Callback' , ' stab_out_l_f cn  cr' , . . . 

' Tag ' , ' Pushbuttonl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units ' , 'points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941] 
'FontName' , 'arial'  ,  ... 

'FontSize' , 7 ,  . .  . 

'Position' , [12  355.5  45  15],  ... 

'String' , A(l, 1) ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl ' )  ; 
b  =  uicontrol ( 'Parent' ,H_STAB_OUT,  . . . 

'Units ', 'points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941] 
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' FontName 7 , 7  ar ial 7 ,  ... 

'FontSize7 ,7,  ... 

'Position7 , [66  356.25  45  15],  .. 

'String7 ,A(1,2) ,  ... 

'Style7 , 7  text7 ,  ... 

'Tag7 ,  7  StaticTextl 7 ) ; 
b  =  uicontrol ( 7  Parent 7 , H_STAB_OUT,  . . . 
'Units' , 'points' ,  ... 

7  FontName 7 , 7  arial 7  ,  ... 

7  FontSize 7 , 7 ,  ... 

'Position7 , [170.25  356.25  45  15] 
'String7 ,A(1,4)  ,  ... 

7  Style 7 , 7  text 7  ,  ... 

7  Tag 7 ,  7 StaticTextl 7 )  ; 
b  =  uicontrol ( 'Parent7 ,H_STAB_OUT,  . . . 
'Units  7 , 'points  7 ,  ... 

7  FontName 7 , 7  arial 7 ,  ... 

'FontSize7 ,7,  ... 

'Position7 , [118.5  356.25  45  15], 
'String7 ,A{1,3) ,  ... 

'Style7 , 'text7 ,  . . . 

'Tag7 , 'StaticTextl7 ) ; 
b  =  uicontrol ( 7  Parent 7 , H_STAB_OUT,  . . . 
'Units  7 , 'points 7 ,  ... 

7  FontName 7 , 7  arial 7 ,  ... 

'FontSize7 ,7,  ... 

'Position' , [327.75  356.25  45  15] 
'String7 ,A(1,7)  ,  ... 

'Style7 , 7  text7 ,  ... 

'Tag7 , 7  StaticTextl 7 ) ; 
b  =  uicontrol ( ' Parent 7 , H_STAB_OUT,  .  . . 
'Units  7 , 'points  7 ,  ... 

7  FontName 7 , 7  arial 7 ,  ... 

'FontSize7 ,7,  ... 

'Position7 , [379.5  356.25  45  15], 
'String7 ,A(1,8) ,  ... 

'Style7 , 7  text7 ,  ... 

'Tag7 , 'StaticTextl7 ) ; 
b  =  uicontrol ( 7  Parent 7 , H_STAB_OUT,  . . . 
'Units  7 , 'points  7 ,  ... 

7 FontName7 , 7 arial 7  ,  ... 

7  FontSize7 , 7 ,  ... 

'Position7 , [275.25  356.25  45  15] 
'String7 ,A(1, 6)  ,  ... 

7  Style 7 , 7  text 7 ,  ... 

7  Tag 7 , 7  StaticTextl 7 ) ; 
b  =  uicontrol ( 7  Parent 7 , H_STAB_OUT,  . . . 
'Units' , 'points' ,  ... 

7  FontName 7 , 7  arial 7  ,  ... 

'FontSize7 ,7,  ... 

'Position7 , [222  356.25  45  15],  . 

'String7 , A(l, 5)  ,  ... 

7  Style 7 , 7  text 7 ,  ... 

7  Tag 7 , 7  StaticTextl 7 ) ; 
b  =  uicontrol ( 'Parent7 ,H_STAB_OUT,  . . . 
7  Units  7 , 7  points  7 ,  ... 

7  FontName 7 , 7  arial 7 ,  ... 
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'FontSize' ,1 ,  ... 

7  Position' ,  [222.75  330.75  45  15], 
'String' ,A(2,5) ,  ... 

'Style' , 'text' #  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB„OUT,  . . . 
'Units' , 'points' ,  ... 

' FontName ' , ' arial '  ,  ... 

' FontSize' ,  7 ,  ... 

' Position' , [277.5  330.75  45  15], 

' String' , A (2 , 6) ,  ... 

' Style ' , ' text ' ,  . . . 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol  ( 'Parent'  ,  H_STAB__0UT ,  ... 

'Units' , 'points' ,  ... 

'FontName' , 'arial' ,  ... 

'FontSize' ,  7 , 

'Position' , [379.5  330.75  45  15], 
'String' , A (2, 8) ,  ... 

'Style' , 'text' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol  ( 'Parent'  , H_STAB__OUT ,  .  .  . 

'Units ' , 'points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

' FontSize' , 7 ,  ... 

'Position' , [327.75  330.75  45  15], 
'String' ,A(2,7) ,  ... 

'Style' , 'text' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol (' Parent ', H_STAB_0UT,  ... 
'Units ', 'points' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' ,7,  ... 

'Position' , [118.5  330.75  45  15], 

' String' , A (2 , 3 ) ,  ... 

' Style' , 'text' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol ( 'Parent' ,H_STAB_OUT,  . . . 
'Units' , 'points' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' , 7 ,  ... 

' Position' ,[ 170 . 25  330.75  45  15], 
'String' ,A(2,4) ,  ... 

'Style' , 'text' ,  ... 

' Tag' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT ,  ... 

'Units ', 'points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' ,7,  ... 

'Position' , [66  330.75  45  15],  ... 

'String' ,A(2,2) ,  ... 

'Style' , 'text' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  -  uicontrol ( 'Parent' ,H_STAB_OUT,  . . . 
'Units' , 'points' ,  ... 

'FontName' , 'arial' ,  ... 

' FontSize' , 7 ,  ... 
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' Position' , [13 . 5  330  45  15],  ... 
' String' ,A(2,1) ,  ... 

' Style' , ' text ' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 
' Units ' , ' points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' ,7,  ... 

'Position' , [13.5  307.5  45  15],  . 

' String' , A (3 , 1) ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 
'Units' , 'points' ,  ... 

' FontName ' , ' arial ' ,  ... 

' FontSize ' , 7 ,  ... 

'Position' , [65.25  307.5  45  15], 

' String' , A (3 , 2 ) ,  ... 

'Style' , 'text' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol { ' Parent ' , H_STAB„OUT , 
'Units ' , 'points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' ,7,  ... 

'Position' , [170.25  307.5  45  15], 
' String' , A(3 , 4) ,  ... 

'Style' , 'text' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 
'Units' , 'points' ,  ... 

' FontName ' , ' arial ' ,  ... 

' FontSize' , 7 ,  ... 

'Position' , [118.5  307.5  45  15], 

' String' , A (3 , 3 ) ,  ... 

' Style ' , ' text ' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol (' Parent ' ,H_STAB_OUT,  ... 
'Units' , 'points' ,  ... 

' FontName ' , ' arial ' ,  ... 

' FontSize ' , 7 ,  ... 

'Position' , [327.75  307.5  45  15], 
'String' ,A(3, 7) ,  ... 

'Style' , 'text' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 
'Units' , 'points' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' , 7 ,  ... 

' Position' , [379 . 5  307.5  45  15], 
'String' ,A(3 , 8) ,  ... 

'Style' , 'text' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol (' Parent ', H_STAB_OUT,  ... 
'Units ', 'points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

' FontSize ' , 7 ,  ... 

'Position' , [275.25  307.5  45  15], 
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'String' ,A(3,6)  ,  ... 

'Style' , ' text' ,  ... 

'Tag' , ' StaticTextl ' )  ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

' Units ' , ' points '  ,  ... 

' FontName ' , ' arial '  ,  ... 

' FontSize' ,  7 ,  ... 

' Position' , [222.75  307.5  45  15],  . 
'String' ,A(3,5) ,  .  .  . 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol (' Parent ', H_STAB_OUT,  ... 

' Units ' , ' points ' ,  ... 

'FontName' , 'arial' ,  ... 

'FontSize' ,7,  ... 

'Position' , [222.75  284.25  45  15], 
'String' ,A(4,5) ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 
'Units' , 'points' ,  ... 

' FontName ' , ' arial ' ,  ... 

' FontSize' , 7 ,  ... 

'Position' ,  [275.25  284.25  45  15], 
'String' ,A(4, 6) ,  ... 

' Style ' , ' text ' ,  ... 

' Tag ' , ' StaticTextl ' )  ; 
b  =  uicontrol (' Parent ', H_STAB_OUT,  ... 

' Units ' , ' points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' , 7 ,  ... 

' Position' , [379 . 5  284.25  45  15],  . 
'String' ,A(4, 8) ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl ' )  ; 
b  =  uicontrol ( 'Parent' ,H_STAB_OUT,  . . . 

' Units ' , ' points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' ,7,  ... 

'Position' , [327.75  284.25  45  15], 
'String' ,A(4, 7) ,  ... 

'Style' , 'text' ,  ... 

'Tag' , 'StaticTextl' )  ; 
b  =  uicontrol ( 'Parent' ,H_STAB_OUT,  . . . 

' Units ' , ' points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' ,7,  ... 

' Position' , [118 . 5  284.25  45  15], 

' String' , A (4 , 3 ) ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl ' )  ; 
b  =  uicontrol  ( 'Parent '  ,  H_JSTAB_0UT ,  ... 

'Units*'  ,  'points'  ,  ... 

' FontName ' , ' arial '  ,  ... 

'FontSize' ,7,  .  .  . 

'Position' ,  [170.25  284.25  45  15], 
'String' ,A(4,4) ,  ... 


161 


7 Style ' , 7 text '  ,  ... 

7 Tag' , 7 StaticTextl 7 )  ; 
b  =  uicontrol ( 7 Parent 7 , H_STAB_OUT,  . . . 
'Units 7 , 'points ' ,  ... 

' FontName ' , 7 arial 7  ,  ... 

7  FontSize 7 ,7,  ... 

7  Position 7 ,  1 66  284.25  45  15],  .. 

'String7 ,A{4,2)  ,  ... 

7  Style 7 , 7  text 7  ,  ... 

'Tag7 , 'StaticTextl7 ) ; 
b  =  uicontrol ( 7  Parent 7 , H_STAB_OUT,  . . . 
'Units  7 , 'points  7 ,  ... 

7  FontName 7 , 7  arial 7 ,  ... 

'FontSize7 , 7 ,  . . . 

7  Position7 ,  [13 . 5  284.25  45  15], 
'String7 ,A(4,1) ,  ... 

'Style7 , 'text7 ,  ... 

7  Tag 7 , 7  StaticTextl 7 ) ; 
b  =  uicontrol ( 7  Parent 7 , H_STAB_OUT,  . . . 
'Units' , 'points' ,  ... 

7  FontName 7 , 7  arial 7 ,  ... 

7  FontSize 7 , 7 ,  ... 

7  Position7 ,  [13 . 5  261.75  45  15], 
'String7 ,A(5,1) ,  ... 

7  Style' , 7  text 7 ,  ... 

7  Tag 7 , 7  StaticTextl ' ) ; 
b  =  uicontrol ( 7  Parent 7 , H_STAB_OUT,  . . . 
7  Units  7 ,  7  points  7 ,  ... 

7  FontName 7 , 7  arial 7  ,  ... 

'FontSize7 ,7,  ... 

.  'Position7 , [66  261.75  45  15],  .. 

7  String7 , A (5 , 2 ) ,  ... 

7  Style7 , 7  text 7 ,  ... 

7  Tag 7 , 7  StaticTextl 7 ) ; 
b  =  uicontrol ( 'Parent7 ,H_STAB_OUT,  . . . 
'Units7 , 'points' ,  ... 

'FontName7 , 'arial7  ,  ... 

7  FontSize7 , 7 ,  ... 

'Position7 , [170.25  261.75  45  15] 
'String7 ,A(5,4)  ,  ... 

'Style7 , 7  text7  ,  ... 

'Tag7 , 7  StaticTextl 7 ) ; 
b  =  uicontrol ( 7  Parent 7 , H_STAB_OUT,  . . . 
'Units  7 , 'points  7  ,  ... 

7  FontName 7 ,  7  arial 7 ,  ... 

7  FontSize 7 , 7 ,  ... 

'Position7 , [118.5  261.75  45  15], 
'String7 , A (5, 3) ,  ... 

7  Style7 , 7  text 7 , 

7  Tag 7 , 7  StaticTextl 7 ) ; 
b  =  uicontrol  ( 'Parent7  , H_STAB__OUT ,  .  .  . 

'Units  7 , 'points  7 ,  ... 

7  FontName 7 , 7  arial 7  ,  ... 

'FontSize7 ,7,  ... 

'Position7 ,  [327.75  261.75  45  15] 
'String7 ,A(5,7) ,  ... 

7  Style7 , 7  text 7 ,  ... 
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' Tag ' , '  StaticTextl ' ) ; 
b  =  uicontrol ( 'Parent' , H_STAB_OUT ,  . . . 

'Units' , 'points' ,  ... 

' FontName ' , ' arial '  ,  ... 

'FontSize' ,7,  ... 

' Position' , [379 . 5  261.75  45  15],  ... 

'String' , A (5, 8) ,  ... 

'Style' , ' text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units ' , 'points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' ,7,  ... 

'Position' , [275.25  261.75  45  15] ,  ... 

'String' ,A(5, 6) ,  . . . 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol (' Parent ', H_STAB_OUT,  ... 

' Units ' , ' points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' ,7, 

' Position' , [222 . 75  261.75  45  15],  ... 

'String' , A (5, 5) ,  ... 

'Style' , ' text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units' , 'points' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' ,7,  ... 

'Position' , [222.75  237.75  45  15] ,  ... 

'String' ,A(6,5) ,  ... 

'Style' , 'text' ,  . . . 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol  ( '  Parent '  ,  H_STAB__OUT ,  ... 

'Units ' , 'points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' ,7,  ... 

'Position' , [275.25  237.75  45  15] ,  ... 

'String' ,A(6, 6) ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol { ' Parent ' , H_STAB_OUT ,  ... 

'Units ' , 'points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941], 
' FontName ' , ' arial '  ,  ... 

' FontSize ' , 7 ,  ... 

'Position' , [379 .5  237.75  45  15],  ... 

'String' , A(6, 8) ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol (' Parent ' ,H_STAB_OUT,  ... 

' Units ' , ' points ' ,  ... 

' FontName ' , ' arial '  ,  ... 

'FontSize' ,7,  ... 

'Position' ,  [327.75  237.75  45  15]  ,  ... 

'String' ,A(6, 7) ,  ... 

'Style' , 'text' ,  ... 
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'Tag' , ' StaticTextl ' ) ; 
b  =  uicontrol ( # Parent ' , H_STAB_OUT,  . . . 

'Units' , 'points' ,  ... 

' FontName ' , ' arial ' ,  ... 

' FontSize' ,  7 ,  ... 

'Position' , [118.5  237.75  45  15] ,  ... 

'String' , A(6, 3) ,  ... 

'Style' , ' text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units ', 'points ' ,  ... 

' FontName ' , ' arial '  ,  ... 

' FontSize' , 7 ,  ... 

'Position' , [170.25  237.75  45  15],  ... 

' String' , A ( 6 , 4) ,  ... 

' Style ' , ' text ' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units ' , 'points ' ,  ... 

'FontName' , 'arial' ,  ... 

'FontSize' ,7,  ... 

'Position' , [66  237.75  45  15] ,  ... 

'String' ,A(6,2) ,  ... 

'Style' , 'text' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol ( ' Parent' , H_STAB_OUT,  . . . 

'Units' , 'points' ,  ... 

' FontName ' , ' arial '  ,  ... 

' FontSize ' , 7 ,  ... 

'Position' , [13.5  237.75  45  15] ,  ... 

' String' # A ( 6 , 1 ) ,  ... 

'Style' , ' text' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units ', 'points ' ,  ... 

' FontName' , 'arial ' ,  ... 

'FontSize' ,1 ,  ... 

'Position' , [13.5  215.25  45  15] ,  ... 

' String' , A (7 , 1) ,  ... 

'Style' , 'text' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units ', 'points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

' FontSize ' , 7 ,  ... 

'Position' #  [66  215.25  45  15] ,  ... 

'String' ,A(7,2) ,  ... 

'Style' , 'text' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units' , 'points' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941], 
' FontName ' , ' arial ' ,  ... 

'FontSize' ,7,  ... 

'Position' , [170.25  215.25  45  15],  ... 

'String' ,A(7, 4) ,  ... 

'Style' , 'text' ,  ... 
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' Tag ' , ' Stat icTextl ' )  ; 
b  =  uicontrol (' Parent ' , H_STAB_OUT,  . . . 

'Units ' , 'points '  ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' ,7,  ... 

' Position' ,  [ 118 . 5  215.25  45  15],  ... 

'String' ,A(7,3) ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icTextl ' )  ; 
b  =  uicontrol  ( '  Parent'  ,  H_STAB__OUT,  .  .  . 

' Units ' , ' points '  ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' ,7 ,  ... 

'Position' , [327.75  215.25  45  15] ,  ... 

'String' ,A(7,7) ,  ... 

'Style' , 'text' ,  .  .  . 

'Tag' , 'Stat icTextl' ) ; 
b  =  uicontrol ( 'Parent' ,  H_STAB_OUT,  . . . 

' Units ' , ' points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

' FontSize' ,  7 ,  ... 

'Position', [379.5  215.25  45  15],  ... 

'String' ,A(7, 8) ,  ... 

'Style' , 'text' ,  ... 

'Tag' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units' , 'points' ,  ... 

' BackgroundColor ', [0 . 752941  0.752941  0.752941], 
' FontName ' , ' arial ' ,  ... 

'FontSize' ,7,  . . . 

'Position' , [275.25  215.25  45  15] ,  ... 

' String' , A (7 , 6) ,  ... 

'Style' , 'text' ,  . . . 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units' , 'points' ,  ... 

' FontName ' , ' arial ' ,  ... 

' FontSize ' , 7 ,  ... 

'Position' ,  [222.75  215.25  45  15]  ,  ... 

'String' ,A(7, 5) ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol  ( 'Parent'  , H__STAB_OUT ,  .  .  . 

'Units' , 'points' ,  ... 

' FontName ' , ' arial '  ,  ... 

' FontSize ' , 7 ,  ... 

'Position' ,  [222.75  194.25  45  15]  ,  ... 

'String' ,A(8, 5) ,  ... 

'Style' , 'text' ,  ... 

'Tag' , ' StaticTextl '  )  ; 
b  =  uicontrol ( 'Parent' ,H_STAB_OUT,  . . . 

'Units' , 'points' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' ,7,  ... 

'Position' , [275.25  193.5  45  15],  ... 

' String' , A (8 , 6) ,  ... 

'Style' , ' text' ,  ... 
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'Tag' , ' StaticTextl ' ) ; 
b  =  uicontrol ( 'Parent' ,HJSTAB_OUT,  . . . 

'Units' , 'points' ,  ... 

' FontName ' , ' arial '  ,  ... 

' FontSize ' , 7 ,  ... 

'Position',  [379.5  193.5  45  15],  ... 

'String' , A (8, 8)  ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units ' , 'points ' ,  ... 

' FontName ' , ' arial '  ,  ... 

' FontSize ' , 7 ,  ... 

'Position' , [327.75  193.5  45  15],  ... 

' String' , A ( 8 , 7)  ,  ... 

'Style' , 'text'  ,  ... 

' Tag ' , ' StaticTextl ' )  ; 
b  -  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units' , 'points' ,  ... 

' FontName ' , ' arial '  ,  ... 

' FontSize' , 7  , 

'Position' , [118.5  193.5  45  15],  ... 

'String' ,A(8,3) ,  ... 

' Style' , ' text' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units' , 'points' ,  ... 

' FontName ' , ' arial ' ,  ... 

' FontSize ' , 7 ,  ... 

'Position' ,  [170.25  193.5  45  15] ,  ... 

'String' ,A(8,4),  ... 

' Style' , ' text ' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units ' , 'points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

' FontSize' , 7 ,  ... 

' Position' ,[ 66  193.5  45  15],  ... 

'String' , A(8,2)  ,  ... 

' Style' , ' text ' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol ( ' Parent' ,H_STAB_OUT,  . . . 

'Units' , 'points' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941], 
'FontName' , 'arial' ,  ... 

' FontSize ' , 7 ,  ... 

'Position' , [13.5  192.75  45  15],  ... 

' String' , A ( 8 , 1)  ,  ... 

'Style' , ' text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent' ,H_STAB_OUT,  . . . 

'Units ' , 'points '  ,  ... 

'Position' , [466.5  14.25  114.75  23.25],  ... 

'String' , 'Modify  Inputs  and  Retrim' ,  ... 

'Callback' , ' stab_out_l_f cn  modin' , . . . 

' Tag ' , ' Pushbuttonl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 
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'Units ' , 'points ' ,  ... 

'BackgroundColor ' ,[0.752941  0.752941  0.752941], 

' FontName ' , ' ar ial ' ,  ... 

'FontSize' , 7 ,  ... 

' Position' , [220 . 5  3  45  15],  ... 

'String' ,B(8, 1) ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icText 1 ' ) ; 
b  =  uicontrol ( 'Parent' ,H_STAB_0UT,  .  . . 

'Units' , 'points' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' , 7 ,  ... 

' Position' , [273  3.75  45  15],  ... 

'String' ,B(8,2) ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icTextl ' ) ; 
b  =  uicontrol (' Parent ', H_STAB_OUT ,  . . . 

'Units' , 'points' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' , 7 ,  ... 

'Position' , [377.25  3.75  45  15],  ... 

'String' ,B(8, 4) ,  ... 

' Style' , ' text' ,  ... 

'Tag' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units' , 'points' ,  ... 

' FontName ' , ' arial ' ,  ... 

' FontSize ' , 7 ,  ... 

'Position' ,  [325.5  3.75  45  15]  ,  ... 

'String' ,B (8, 3) ,  ... 

'Style' , 'text' ,  ... 

'Tag' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  .  .  . 

'Units' , 'points' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' , 7 ,  ... 

'Position' , [325.5  25.5  45  15] ,  ... 

'String' ,B(7,3) ,  ... 

' Style ' , ' text ' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units' , 'points' ,  ... 

'BackgroundColor' ,[0.752941  0.752941  0.752941], 
' FontName ' , ' arial ' ,  ... 

'FontSize ' , 7 ,  ... 

' Position' , [377 . 25  25.5  45  15],  ... 

'String' ,B<7,4) ,  ... 

' Style ' , ' text ' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol {' Parent ', H_STAB_OUT,  ... 

'Units ', 'points ' ,  ... 

' FontName ' , ' arial '  ,  ... 

'FontSize' , 7 ,  ... 

' Position' , [273  25.5  45  15],  ... 

'String' ,B(7,2) ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
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b  =  uicontrol ( ' Parent ' , H_STAB_OUT, 
'Units' , 'points' ,  ... 

' FontName ' , ' arial '  ,  ... 

' FontSize ' , 7 ,  ... 

' Position' , [220 . 5  25.5  45  15] 
'String' ,3(7,1) ,  ... 

' Style ' , ' text ' ,  ... 

'Tag' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT, 
'Units ' , 'points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' ,7,  ... 

' Position' , [220 . 5  48  45  15], 

' String' , B ( 6 , 1) ,  ... 

' Style ' , ' text ' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol ( 'Parent' ,H„STAB_OUT, 
'Units ', 'points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' ,7,  ... 

'Position' , [273  48  45  15],  .. 

' String' , B ( 6 , 2 ) ,  ... 

'Style' , 'text' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT , 
'Units ' , 'points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

' FontSize ' , 7 ,  ... 

'Position' , [377.25  48  45  15], 
' String' , B ( 6 , 4) ,  ... 

' Style ' , ' text ' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol  (  '  Parent '  ,  H_STAB__OUT, 
'Units' , 'points' ,  ... 

' FontName ' , ' arial ' ,  ... 

' FontSize' , 7 ,  ... 

'Position' , [325.5  48  45  15], 

' String' , B ( 6 , 3 ) ,  ... 

' Style' , ' text ' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT, 

' Units ' , ' points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' ,7,  ... 

'Position' , [325.5  72  45  15], 
'String' ,B(5,3) ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol  (  '  Parent '  ,  H_STAB___OUT , 
'Units ', 'points ' ,  ... 

' FontName ' , ' arial ' ,  ... 
'FontSize' ,7,  ... 

'Position' , [377 .25  72  45  15], 
'String' ,B(5, 4) ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT, 


' Units 7 , 7  points  7  ,  ... 

7  FontName 7 , 7  arial 7  ,  ... 

'FontSize7 ,  7 ,  ... 

'Position7 , [273  72  45  15] ,  ... 

'String7 ,B(5,2) ,  ... 

'Style7 , 7  text 7 ,  ... 

7  Tag7 , 7  StaticTextl 7 ) ; 
b  =  uicontrol ( 'Parent7 ,H_STAB_OUT,  . . . 
'Units  7 , 'points 7 ,  ... 

7  FontName 7 , 7  arial 7  ,  ... 

7  FontSize7 , 7 ,  ... 

'Position7, [220.5  72  45  15] ,  ... 
'String7 ,B(5,1) ,  ... 

'Style7 , 'text7 ,  ... 

7  Tag 7 , 7  StaticTextl 7 ) ; 
b  =  uicontrol ( 7  Parent 7 , H_STAB_OUT,  . . . 

7  Units  7 , 7  points  7 ,  ... 

7  FontName 7 , 7  arial 7 ,  ... 

'FontSize7 ,7,  ... 

7 Position7 ,  [220 . 5  94.5  45  15],  . 
'String7 ,B(4,1) ,  ... 

'Style7 , 'text7 ,  ... 

'Tag7 , 'StaticTextl7 ) ; 
b  =  uicontrol ( 7  Parent 7 , H_STAB_OUT,  . . . 
'Units  7 , 'points  7 ,  ... 

7  FontName 7 , 7  arial 7 ,  ... 

7  FontSize7 , 7 ,  ... 

7  Position7 ,  [273  94.5  45  15],  ... 
'String7 ,B(4, 2) ,  ... 

'Style7 , 7  text 7 ,  ... 

7  Tag 7 , 7  StaticTextl 7 ) ; 
b  =  uicontrol { 'Parent7 ,H_STAB_OUT,  . . . 
7  Units 7 , 7  points 7 ,  ... 

7  FontName 7 , 7  arial 7 ,  ... 

7  FontSize 7 , 7 ,  ... 

'Position7 , [377.25  94.5  45  15], 

7  String7 ,B(4,4) ,  ... 

7  Style7 , 7  text 7 ,  ... 

7  Tag 7 , 7  StaticTextl 7 ) ; 
b  =  uicontrol ( 7  Parent 7 , H_STAB_OUT,  . . . 
7  Units  7 , 7  points  7 ,  ... 

7  FontName 7 , 7  arial 7 ,  ... 

7  FontSize7 , 7 ,  ... 

7  Position7 ,  [325 . 5  94.5  45  15],  . 
7  String 7 , B (4 , 3 ) ,  ... 

'Style7 , 7  text7 ,  ... 

7  Tag7 , 7  StaticTextl 7 ) ; 
b  =  uicontrol { 7  Parent 7 , H_STAB„OUT,  . . . 
'Units' , 'points' ,  ... 

7  FontName 7 , 7  arial 7 ,  ... 

'FontSize7 ,7,  ... 

'Position7 , [325.5  117.75  45  15], 
'String7 ,B(3,3) ,  ... 

'Style7 , 'text7 ,  ... 

7  Tag 7 , 7  StaticTextl 7 ) ; 
b  =  uicontrol ( 7  Parent 7 , H_STAB_0UT,  . . . 
'Units7 , 'points' ,  ... 
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' FontName ' , ' ar ial ' ,  ... 

7  FontSize ' ,  7 ,  ... 

'Position', [377.25  117.75  45  15] 
'String' ,B(3,4) ,  ... 

' Style ' , ' text ' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 
'Units' , 'points' ,  ... 

' FontName ' , ' arial '  ,  ... 

' FontSize' , 7 ,  ... 

'Position' ,  [272 .25  117.75  45  15] 
'String' ,B(3,2) ,  ... 

'Style' , 'text' ,  ... 

'Tag' , 'StaticTextl'  )  ; 
b  =  uicontrol ( ' Parent' , H_STAB_OUT,  . . . 
'Units ' , 'points ' ,  ... 

' FontName ' , ' arial '  ,  ... 

' FontSize' ,  7 ,  ... 

'Position', [220.5  117.75  45  15], 
' String' , B (3 , 1 ) ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 
'Units' , 'points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' , 7 ,  ... 

'Position' , [220.5  140.25  45  15], 
'String' ,B(2,1)  ,  ... 

' Style' , ' text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent' ,H_STAB_OUT,  . . . 
' Units ' , ' points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

' FontSize' , 7 ,  ... 

'Position' , [273  141  45  15] ,  ... 

'String' ,B(2, 2) ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl '  )  ; 
b  =  uicontrol ( 'Parent' ,H_STAB_OUT,  . . . 
'Units ' , 'points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' ,7,  ... 

'Position' , [377.25  141  45  15],  . 

'String' ,B(2,4) ,  ... 

'Style' , 'text' ,  ... 

'Tag' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 
'Units ', 'points ' ,  ... 

' FontName ' , ' arial ' ,  ... 

'FontSize' ,7,  ... 

'Position' , [325.5  141  45  15],  .. 

'String' ,B(2,3) ,  ... 

'Style' , 'text' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol ( 'Parent' ,H_STAB_OUT,  . . . 
'Units ' , 'points ' ,  ... 

' FontName ' , ' arial ' ,  ... 
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'FontSize' ,  7 ,  ... 

'Position' , [325.5  166.5  45  15] ,  ... 

' String' ,  B  ( 1 , 3  ) ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol  ( '  Parent '  ,  H_STAB__OUT,  .  .  . 

' Units ' , ' points '  ,  ... 

' FontName ' , ' arial '  ,  ... 

'FontSize' ,  7 ,  ... 

'Position' , [377.25  166.5  45  15] ,  ... 

' String' ,3(1,4),  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol  ( 'Parent'  ,  H__STAB_OUT ,  .  .  . 

' Upi  ts ' , ' points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941] 
' FontName ' , ' arial ' ,  ... 

' FontSize ' , 7 ,  ... 

'Position' ,  [273  166.5  45  15]  ,  ... 

'String' ,B(1, 2)  ,  ... 

' Style ' , ' text ' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol ( ' Parent ' , HJSTAB_OUT,  . . . 

' Units ' , ' points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941] 
' FontName ' , ' arial ' ,  ... 

'FontSize' , 7 ,  ... 

'Position' , [219  165.75  45  15] ,  ... 

'String' ,B (1, 1) ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 

%%%%%%%%%% 

b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units 'points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941] 
'FontSize' , 18,  . . . 

'Horizontal Alignment ' , ' lef t ' ,  ... 

'Position' , [449.25  348.75  23.25  27.75],  ... 

'String' , 'x=' ,  ... 

' Style ',' text ' ,  ... 

'Tag' , 'StaticText3 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units ' , 'points' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941] 
' FontSize ' , 18 ,  ... 

'HorizontalAlignment ' , 'left',  .  .  . 

'Position' , [508.5  354.75  32.25  22.5],  ... 
'String' , 'u=' ,  ... 

' Style' , ' text' ,  ... 

' Tag ' , ' Stat icText3 ' ) ; 
b  =  uicontrol  ( 'Parent'  , H_STAB__OUT ,  .  .  . 

' Units ', 'points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941] 
' FontSize ' , 18 ,  ... 

'HorizontalAlignment left '  ,  ... 
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' Position' ,  [ 449 . 25  295.5  23.25  23.25],  ... 

'String' , 'w' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icText4 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units' , 'points' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941] 
'FontSize' ,18,  ... 

'HorizontalAlignment ' , 'left' ,  ... 

' Position' , [449 . 25  269.25  23.25  23.25],  ... 

' String' , ' q' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticText4 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units' , 'points' ,  ... 

' BackgroundColor ',[0.752941  0.752941  0.752941] 
'FontSize' ,18,  ... 

'HorizontalAlignment' , ' left' ,  ... 

'Position' , [449.25  242.25  41.25  23.25],  ... 

' String ' , ' theta ' ,  ... 

' Style' , ' text ' ,  ... 

' Tag ' , ' StaticText4 ' ) ; 
b  =  uicontrol ( 'Parent' ,H_STAB_OUT,  . . . 

'Units' , 'points' ,  ... 

'FontSize' ,18,  ... 

'HorizontalAlignment' , ' left' ,  ... 

'Position' , [449.25  162  34.5  23.25],  ... 

' String' , 'phi ' ,  ... 

' Style ' , ' text ' ,  ... 

' Tag ' , ' StaticText4 ' ) ; 
b  =  uicontrol ( 'Parent ' ,H_STAB_OUT,  ... 

'Units ' , 'points ' ,  ... 

'FontSize' ,18,  ... 

' HorizontalAlignment ' , ' left ' ,  ... 

'Position' , [449.25  189  23.25  23.25],  ... 

' String' , 'p' ,  ... 

' Style' , 'text' ,  ... 

' Tag ' , ' Stat icText 4 ' ) ; 
b  =  uicontrol (' Parent ', H_STAB_OUT,  ... 

'Units' , 'points' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941] 
' FontSize' , 18 ,  ... 

'HorizontalAlignment ' , ' left ' ,  ... 

'Position' , [449.25  215.25  23.25  23.25],  ... 

' String' , ' v' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticText4 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units ' , 'points ' ,  ... 

' BackgroundColor ',[ 0 . 752941  0.752941  0.752941] 
'FontSize' ,18,  ... 

'HorizontalAlignment' , 'left' ,  ... 

'Position' , [449.25  136.5  23.25  23.25],  ... 

'String' , 'r] ' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticText4 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 
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'Units' , 'points' ,  ... 

'BackgroundColor'  ,  [0.752941  0.752941  0.752941],  ... 
'FontSize' ,18,  ... 

'Horizontal Alignment ' , 'left'  ,  ... 

'Position' , [508.5  243  50.25  23.25],  ... 

'String' , 'pedal] ' ,  ... 

'Style' , 'text' ,  ... 

'Tag' , 'StaticText4' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

' Units ' , ' points '  ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'FontSize' ,18,  ... 

' HorizontalAlignment ' , ' left ' ,  ... 

'Position' , [508.5  269.25  59.25  23.25],  ... 

'String' ,' lat.  eye.',  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' S tat icText4 ' ) ; 
b  =  uicontrol  ( '  Parent '  ,  H__STAB_OUT,  .  .  . 

'Units ' , 'points ' ,  ... 

'BackgroundColor' ,  [0.752941  0.752941  0.752941],  ... 

'FontSize' ,18,  ... 

' HorizontalAlignment ' , ' left ' ,  ... 

'Position' , [508.5  296.25  50.25  23.25],  ... 

'String' , 'col. ' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' S taticText4 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB„OUT,  ... 

'Units ', 'points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 
'FontSize' ,18,  ... 

'HorizontalAlignment' , ' left' ,  ... 

'Position' , [449.25  322.5  23.25  23.25],  ... 

'String' , ' [u' ,  ... 

' Style' , ' text' ,  ... 

' Tag ' , ' StaticText4 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_OUT,  . . . 

'Units ' , 'points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 
' FontSize ' , 18 ,  ... 

'HorizontalAlignment ',' left '  ,  ... 

'Position' , [508.5  323.25  83.25  23.25],  ... 

' String ' , ' [ long .  eye . ' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' S taticText4 ' ) ; 
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25.  stab_out_l_fcn.m 

function  stab_out_l__f cn  (Action) 

%  Switchyard  Callback  function  for  stab_out_JL  .m 

%  Written  for  JANRAD  version  6.0  by  LT  David  A. 

global  S_STAB„INPUT_1  S_STAB_INPUT_2  S_PERF_INPUT 

COUNT  H_TF__RESP.  .  . 

H_STAB_OUT 

if  isempty (nargin) 
return 

end 

switch  Action 

case  'cr' 

time_freq_resp 
close (H_STAB_OUT) 
return 

case  'save' 
sc_save 
return 

case  'modin' 

COUNT= 1 ; 

performance_input 
close (H_STAB_OUT) 
return 


case  'print' 

set(gcf, ' PaperOrientation' , 'landscape') 
set (gcf , ' PaperPosition' , [ . 5  .5  10  7.5]) 
print  -dwinc 

case  'return' 
j  anrad9  8 
close  all 

case  'quit' 
quit__gui 

case  'about' 
about_j anrad 

case  ' delta_input ' 
performance_input 


end 


Heathorn 

S_PERF_OUTPUT  A  B 
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26.  stability_and_control.m 

function  stability_and_control ( ) 

%  JANRAD  98  VERSION  6.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics 
object 

%  and  its  children.  Note  that  handle  values  may  change  when  these 
objects 

%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  handle  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

%  Warning  screen  to  indicate  that  Performance  Module  must  be  run  before 
%  Stability  and  Control  Analysis  can  be  performed. 

%  Written  for  Janrad.  version  6.0  by  LT  David  A.  Heathorn 

load  stability_and_control 

a  =  figure ( 'Units ', 'normalized' ,  ... 

'Color' , [0.8  0.8  0.8],  ... 

'Colormap' ,mat0,  . . . 

' MenuBar ' , ' none ' ,  ... 

'Name7 ,' Stability  and  Control  Error' ,  ... 

'NumberTitle' , 'off' ,  ... 

' PointerShapeCData' ,matl ,  ... 

'Position' , [0.190625  0.383333  0.446875  0.34375],  ... 

'Tag' , ' Figl ' ) ; 

b  =  uicontrol ( 'Parent ', a,  ... 

'Units ', 'normalized' ,  ... 

' BackgroundColor ', [0 . 752941  0.752941  0.752941],  ... 

'Position' ,  [0.013986  .0 . 0363636  0.972028  0.933333],  ... 

' Style ' , ' frame ' ,  ... 

'Tag' , 'Framel' ) ; 


b  =  uicontrol (' Parent ', a,  ... 

'Units ', 'normalized' ,  ... 

'Callback' , 'close (gcf) ' ,  ... 

' FontSize ' , 14 ,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.388112  0.109091  0.202797  0.181818],  ... 

'String' , 'OK' ,  ... 

'Tag' , 'Pushbuttonl' ) ; 
b  =  uicontrol (' Parent ', a,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor ', [0 . 752941  0.752941  0.752941],  ... 

'FontSize' , 12 ,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.0839161  0.515152  0.811189  0.345455],  ... 

'String' , 'Stability  and  Control  can  only  be  run  after  the  Performance 
Function' ,  ... 

'Style' , 'text' ,  ... 
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' Tag' , ' StaticTextl ' ) ; 
b  =  uicontrol (' Parent ' , a,  ... 

' Units' , 'normalized' ,  ... 

' BackgroundColor ',[ 0 . 752941  0.752941  0.752941],  ... 

'FontSize' ,12,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' ,  [0.332168  0.357576  0.318182  0.127273],  . 

'String' , 'SORRY! '  ,  ... 

'Style' , 'text'  ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
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27.  stabiIity_control_input_l.m 


function  stability_control_input_l { ) 

%  GUI  window  to  display  and/or  edit  input 

%  This  is  the  machine- generated  representation  of  a  Handle  Graphics 
object 

%  and  its  children.  Note  that  handle  values  may  change  when  these 
objects 

%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  handle  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT- file  must  be  on  your  path. 

%  First  GUI  screen  to  input  stability  and  control  paramaters . 

%  Written  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 

load  stability__control_input_l 

global  H_STAB_IN1  S_STAB_INPUT_1  S_STAB_INPUT  NAME  S_SC_INPUT_1 

if  -isempty (NAME) 

eval ( [ 'load  ' , NAME] ) 
uns  t  r u  c  t u  r  e_s  t  ab_i npu  t 
s  t rue  tur e_s  t ab_inpu t_l 

else 

load  create_new_stab 
s  true tur e_s  t ab_inpu t_l 

end 

H_STAB_IN1  =  figure ( 'Units' , 'normalized'  ,  ... 

'Color', [0.80.80.8],  ... 

'Colormap' ,mat0,  . . . 

' CreateFcn' , 'global  MESH_VAL,  MESH_VAL=0; ; ' ,  ... 

'Name' , 'Stability  and  Control  Parameters  page  1',  ... 

'NumberTitle' , 'off' ,  ... 

' PointerShapeCData ' ,matl,  . .  . 

' Position' ,[ 0 . 0025  0.0466667  0.9975  0.89],  ... 

'Tag' , ' Fig2 ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0100251  0.513109  0.318296  0.385768],  ... 

' Style ' , ' frame ' ,  ... 

'Tag' , 'Framel' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0100251  0.011236  0.317043  0.490637],  ... 

' Style ' , ' frame ' ,  ... 

'Tag' , ' Frame2 ' ) ; 

b  =  uicontrol  ( '  Parent '  ,  H_STAB__IN1 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor ',[0.752941  0.752941  0.752941],  ... 

'Position' , [0.338346  0.187266  0.322055  0.71161],  ... 
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' Style ' , ' frame '  ,  ... 

'Tag' , ' Frame3 ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

' BackgroundColor ' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.679198  0.0674157  0.309524  0.835206],  ... 
'Style' , ' frame' ,  ... 

'Tag' , 'Frame4 ' ) ; 

b  =  uimenu { ' Parent ' , H_STAB_IN1 ,  ... 

' Label ',' JANRAD  Options',  ... 

' Tag ' , ' uimenul ' ) ; 
c  =  uimenu (' Parent ', b,  ... 

'Callback' , ' perf ormance_input_f cn  quit' ,  ... 

'Label' , 'Quit  JANRAD',  ... 

'Tag' , 'JANRAD  OptionsSubuimenul ' ) ; 
c  =  uimenu (' Parent b,  ... 

'Callback' , 'performance_input_fcn  return' ,  ... 

'Label' , 'Return  to  Begining' ,  ... 

'Tag' , 'JANRAD  OptionsSubuimenul' ) ; 
c  =  uimenu ( 'Parent' ,b,  ... 

'Callback' , 'performance_input_f cn  delta_input' ,  ... 

'Enable' , 'off' ,  ... 

' Label ' , ' Change  Input  Parameters ' ,  ... 

' Tag ' , ' Subuimenul ' ) ; 
c  =  uimenu (' Parent ', b,  ... 

'Callback' , 'perf ormance„input_fcn  about' ,  ... 

'Label' , 'About  Janrad  98  . . . ' ,  ... 

'Separator' , 'on' ,  ... 

' Tag ' , ' Subuimenul ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ',' normalized' ,  ... 

'BackgroundColor' , [0. 752941  0.752941  0.752941],  ... 

'FontSize' ,14,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.122807  0.917603  0.763158  0.0692884],  ... 
'String' , 'STABILITY  AND  CONTROL  PARAMETERS  (PAGE  1  OF  2)', 
' Style' , ' text ' ,  ... 

' Tag ' , ' StaticText3 ' ) ; 
b  =  uicontrol ( 'Parent' ,H_STAB_IN1,  ... 

'Units' , 'normalized'  ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'FontSize' ,14,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.0175439  0.805243  0.294486  0.0898876],  ... 

'String' , 'MAIN  ROTOR  PARAMETERS' ,  ... 

' Style' , ' text ' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0197109  0.75  0.17477  0.0538462],  ... 

' String' ,' Flapping  Moment  of  Inertia  ( slug-f tA2 ) ' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 
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'BackgroundColor' , [1  11],  ... 

'Callback' , ' Ib=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 . Ib=str2num(Ib) ; 

/ 

' Position' ,  [ 0 . 215506  0.751923  0.0985545  0.0480769],  ... 

' String' , lb,  . . . 

'Style' , 'edit' ,  ... 

' Tag ' , ' Edi tTextl ' ) ; 

b  =  ui control { ' Parent ' , H_STAB_IN1 ,  ... 

' Units ', 'normalized' ,  ... 

'BackgroundColor' ,[0.752941  0.752941  0.752941],  ... 

' Position ',[ 0 . 0197109  0.694231  0.17477  0.0538462],  ... 

'String' , 'Hub  Height  Above  Waterline  (ft) ' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icText2 ' ) ; 
b  = . uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor ', [1  11],  ... 

'Callback' , ' hmd= get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_1 .hmd=str2num(hm 
d)  ;  '  ,  ... 

' Position' ,[ 0 . 215506  0.694231  0.0985545  0.0480769],  ... 

'String' ,hmd,  . . . 

'Style' , 'edit' ,  . . . 

'Tag' , 'Edi tTextl' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor ', [0 . 752941  0.752941  0.752941],  ... 

'Position' , [0.021025  0.640385  0.17477  0.05],  ... 

' String' , 'Hub  Fuselege  Station  (ft)',  ... 

'Style' , 'text' ,  ... 

'Tag' , ' StaticText2 ' ) ; 
b  =  uicontrol ( 'Parent' ,H_STAB_IN1,  . . . 

'Units' , 'normalized' ,  ... 

' BackgroundColor ',[ 1  11],  ... 

'Callback' ,  '  lmd=get  (gcbo,  "String'  ' )  ;  S_STAB_INPUT_1 .  Imd=str2num(lm 
d)  ?  '  ,  .  .  . 

' Position' ,[ 0 . 215506  0.640385  0.0985545  0.05],  ... 

' String' , lmd,  . . . 

'Style' , 'edit' ,  . . . 

'Tag' , ' Edi tTextl ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

' BackgroundColor ',[ 0 . 752941  0.752941  0.752941],  ... 

'Position' , [0.0197109  0.582692  0.17477  0.05],  ... 

' String' , 'Hub  Position  Right  of  Buttline  (ft)',  ... 

'Style' , 'text' ,  ... 

'Tag' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , 'ymd=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 .ymd=str2num(ym 
d)  ;  '  ,  ... 

' Position' ,[ 0 . 21682  0.586538  0.0972405  0.0480769],  ... 

' String' ,ymd,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , ' Edi tTextl ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 
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'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0197109  0.521154  0.17477  0.0538462],  ... 

'String' , 'Mast  Incidence  (negative  fwd-degrees) ' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icText2  7 ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , ' im=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 . im=str2num ( im) ; 

/ 

,  ... 

'Position' , [0.215506  0.528846  0.0985545  0.0480769],  ... 

' String' , im,  . . . 

' Style ' , ' edit ' ,  ... 

'Tag' , ' EditTextl ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

' FontSize ' , 14 ,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' ,  [0.022339  0.403846  0.296978  0.0903846],  ... 

'String' , 'VERTICAL  FIN  PARAMETERS' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticText 1 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0 .752941  0.752941  0.752941],  ... 

'Position' , [0.0315375  0.353846  0.173456  0.0480769],  ... 

' String' ,' Height  Above  waterline  (ft)',  ... 

' Style ' , ' text '  ,  ... 

'Tag' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

' Units ',' normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback'  ,  'hvd= get  (gcbo,  '  'String'  '  )  ;  S_STAB_JENPUT__1 . hvd=str2num (hv 
d);',  ... 

'Position' , [0.215506  0.351923  0.0985545  0.0480769],  ... 

' String' ,hvd,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol  ( '  Parent '  ,  H__STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0341656  0.294231  0.17477  0.05],  ... 

' String' ,' Fuselage  Station  (ft)',  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , ' lvd=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_1 . Ivd=str2num ( lv 
d);',  ... 

'Position' , [0.215506  0.294231  0.0985545  0.05],  ... 

' String' , lvd,  . . . 

' Style ' , ' edit ' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ', 'normalized' ,  ... 
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'Backgrounds lor 7 ,  [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0341656  0.238462  0.173456  0.0480769],  ... 

' String' ,' Position  Right  of  Buttline  (ft)',  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icText2 ' ) ; 
b  =  uicontrol ( 'Parent' ,H_STAB_IN1,  . . . 

'Units' , 'normalized' ,  ... 

'Backgrounds  lor '  ,  [1  11]/  ... 

'Callback'  ,  'yvd=get  (gcbo,  '  'String'  ' )  ; S_STAB_INPUT_1  .yvd=str2num (yv 
d);',  ... 

'Position' , [0.215506  0.236538  0.0985545  0.0480769],  ... 

' String' ,yvd,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , ' EditTextl ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0341656  0.182692  0.173456  0.0480769],  ... 

'String' , 'Alpha  Zero  Lift  (degrees) ' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol ( 'Parent' ,  H__STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback', ' alplov=get (gcbo , ' 'String' ') ; S_STAB_INPUT_1 . alplov= (str 
2num(alplov) ) ; ' ,  ... 

'Position' , [0.215506  0.180769  0.0985545  0.0480769],  ... 

' String' , alplov,  ... 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor ',[ 0 . 752941  0.752941  0.752941],  ... 

'Position' , [0.0341656  0.126923  0.173456  0.0480769],  ... 

'String' , 'CL  Max' ,  . . . 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'  Callback '  ,  '  clvertmax=get  ( gcbo ,  '  '  String '  ' )  ;  S_STAB_INPUT_1 .  clvertma 
x=str2num(clvertmax) ; ' ,  ... 

'Position' , [0.215506  0.125  0.0985545  0.0480769],  ... 

'String' , elver tmax,  . . . 

' Style' , ' edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0354796  0.0692308  0.173456  0.0557692],  ... 

'String' , 'Dynamic  Pressure  Ratio  (page  489-Prouty) ' ,  ... 

'Style' , 'text' ,  . . . 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor ', [1  11],  ... 
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'Callback' , ' qvq=get (gcbo , ' 'String' ' ) ; S_STAB„INPUT_1 . qvq=str2num (qv 

q)  f  t  •  •  • 

'Position', [0.215539  0.071161  0.0977444  0.0486891],  ... 

'String' ,qvq,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , ' EditTextl ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units normalized' ,  ... 

'Backgrounded or' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0350877  0.0262172  0.172932  0.0337079],  ... 

' String' , 'Lift  Curve  Slope',  ... 

'Style' , 'text' ,  ... 

' Tag' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor ' ,[111],  ... 

'Callback' , ' av=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_1 . av=str2num (av) ; 

/ 

'Position' , [0.214286  0.0187266  0.0977444  0.0468165],  ... 

'String' ,av,  ... 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'FontSize' ,14,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.360419  0.796905  0.288336  0.0889749],  ... 

'String' , 'HORIZONTAL  TAIL  PARAMETERS',  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icText 1 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' , [0 .752941  0.752941  0.752941],  ... 

'Position' , [0.359109  0.727799  0.173001  0.046332],  ... 

' String' Height  Above  Waterline  (ft)',  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , 'hhd=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 .hhd=str2num (hh 
d)  ;  '  ,  ... 

'Position' , [0.55308  0.729207  0.0982962  0.0483559],  ... 

' String' , hhd,  . . . 

' Style ' , ' edit ' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol ( 'Parent ' ,H_STAB_IN1,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.360419  0.659574  0.174312  0.0483559],  ... 

' String' , 'Fuselage  Station  (ft)',  ... 

' Style ' , ' text ' ,  ... 

'Tag' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

' Units ', 'normalized' ,  ... 

'BackgroundColor' , [1  11],  ... 
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'Callback' , ' lhd=get {gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 . Ihd=str2num ( lh 
d);',  ... 

'Position' , [0.554391  0.659574  0.0982962  0.0483559],  ... 

' String' , lhd,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , ' EditTextl ' ) ; 

b  =  ui control ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ' , 'normalized' ,  ... 

'Backgrounds lor' , [0.752941  0.752941  0.752941],  ... 

'FontSize' ,6,  ... 

'Position' , [0.360053  0.590385  0.173456  0.0480769],  ... 

' String ',' Position  Right  of  Buttline  (ft))',  ... 

' Style ' , ' text ' ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor ' ,[111],  ... 

'Callback'  ,  'yhd=get  (gcbo ,  '  'String'  '  )  ; S_JSTAB__INPUT_1  .yhd=str2num (yh 
d)  ;  '  ,  .  .  . 

'Position' , [0.554391  0.59381  0.0982962  0.0483559],  ... 

'String' ,yhd,  ... 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.360419  0.528046  0.174312  0.0483559],  ... 

' String' , 'Alpha  Zero  Lift  (degrees)',  ... 

'Style' ,.  'text'  ,  .  .  . 

' Tag ' , ' S tat icText 2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , ' alploh^get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 . alploh=str2 
num(alploh) ; ' ,  ... 

'Position' , [0.554391  0.529981  0.0982962  0.0483559],  ... 

' String' , alploh,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.360419  0.464217  0.174312  0.0483559],  ... 

' String' , 'Angle  of  Incidence  (degrees)',  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , ' ih=get (gcbo, ' 'String' ') ; S_STAB_INPUT_1 . ih=str2num{ ih) ; 

/ 

'Position' , [0.554391  0.466151  0.0982962  0.0483559],  ... 

' String' , ih,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol  (  '  Parent '  ,  H_STAB__IN1 ,  ... 

'Units ', 'normalized' ,  ... 
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' BackgroundColor ' , [ 0 . 752941  0.752941  0.752941],  ... 

'Position' , [0.360419  0.398453  0.174312  0.0483559],  ... 

'String' , 'Lift  Curve  Slope',  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback', ' ah=get (gcbo, ' 'String' ') ; S_STAB_INPUT_1 . ah=str2num (ah) ; 

/ 

'Position' , [0.554391  0.400387  0.0982962  0.0483559],  ... 

' String' , ah,  ... 

' Style ' , ' edit ' ,  ... 

'Tag' , ' EditTextl ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' ,  [0.360053  0.328846  0.173456  0.0538462],  ... 

'String' , 'Dynamic  Pressure  Ratio  (page  489  Prouty) ' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icText2 ' ) ; 
b  =  uicontrol (' Parent ', H_STAB_IN1 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor ', [1  11],  ... 

'Callback' , ' qhq=get (gcbo , ' 'String' ' ) ; S__STAB_INPUT_1 . qhq=str2num (qh 
q)  ;  '  /  ... 

'Position' , [0.554391  0.336557  0.0982962  0.0483559],  ... 

' String' , qhq,  . . . 

' Style ' , ' edit ' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol  ('  Parent ',  H__STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.358739  0.261538  0.17477  0.0538462],  ... 

'String' , 'Rotor  Downwash  Ratio  (page  489  Prouty)',  ... 

' Style ' , ' text ' ,  ... 

'Tag' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , ' vhvl=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 . vhvl=str2num{ 
vhvl ) ; ' ,  ... 

'Position' ,  [0.554391  0.272727  0.0982962  0.0483559],  ... 

'String' , vhvl,  ... 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.360053  0.196154  0.173456  0.0557692],  ... 

'String' , 'Fuselage  Downwash  Ratio  (page  489  Prouty) ' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ' , 'normalized'  ,  ... 

'BackgroundColor' ,[111],  ... 
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'Callback' , ' detaf dalpfh=get (gcbo, ' 'String' ' ) ; S_STAB_INPUTJL . detaf d 
alpfh=str2num(detafdalpfh) ; ' ,  ... 

'Position' , [0.554391  0.206963  0.0982962  0.0483559],  ... 

'String' , detaf dalpfh,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'FontSize' ,14,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.686763  0.798839  0.288336  0.0889749],  ... 

'String' , 'TAIL  ROTOR  PARAMETERS' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticText 1 ' )  ; 
b  =  uicontrol  ( '  Parent '  ,  H_STAB__IN1 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position', [0.688073  0.729207  0.173001  0.0464217],  ... 

'String' , 'Height  Above  Waterline  (ft) ' ,  ... 

'Style' , 'text' ,  ... 

'Tag' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ' , 'normalized'  ,  . . . 

'BackgroundColor' ,[111],... 

'Callback' , 'htd=get (gcbo, ' 'String' ' ) ; S_STAB„INPUT„1 . htd=str2num(ht 
d);',  ... 

'Position' , [0.880734  0.729207  0.0982962  0.0483559] ,  ... 

'String' ,htd,  . . . 

'Style' , 'edit' ,  ... 

.  'Tag' , 'EditTextl' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.688073  0.659574  0.174312  0.0483559],  ... 

'String', 'TR  Fuselage  Station  (ft)',  ... 

'Style' , 'text' ,  ... 

'Tag' , ' StaticText2 ' ) ; 
b  =  uicontrol ( 'Parent' ,H_STAB_IN1,  . . . 

'Units' , 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback', ' ltd^get (gcbo, ' 'String' ') ; S_STAB_INPUT_1 . Itd=str2num(lt 
d);',  ... 

'Position' , [0.882045  0.659574  0.0982962  0.0483559],  ... 

'String' , ltd,  ... 

'Style' , 'edit' ,  . . . 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  . . . 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

' FontSize ' , 6 ,  ... 

'Position' , [0.688073  0.591876  0.174312  0.0483559],  ... 

'String' , 'Position  Right  of  Buttline  (ft)',  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol ( 'Parent' ,H_STAB_IN1,  . . . 

'Units' , 'normalized' ,  ... 
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'BackgroundColor ' , [1  11],  ... 

'Callback' , 'ytd=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_1 .ytd=str2num (yt 

d);',  ... 

'Position' , [0.882045  0.59381  0.0982962  0.0483559],  ... 

' String' ,ytd,  . . . 

'Style' , 'edit' ,  ... 

' Tag ' , ' EditText 1 ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.688073  0.528046  0.174312  0.0483559],  ... 

' String' , 'Number  of  Blades',  ... 

'Style' , 'text' ,  ... 

'Tag' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ' , 'normalized'  ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback', ' bt=get (gcbo , ' 'String' ') ; S_STAB_JINPUT_1 .bt=str2num(bt) ; 

/ 

'Position' , [0.882045  0.529981  0.0982962  0.0483559],  ... 

'String' ,bt,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , ' EditTextl ' ) ; 

b  =  uicontrol  ( '  Parent '  ,  H_JSTAB__IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.688073  0.464217  0.174312  0.0483559],  ... 

' String' , 'Blade  Chord  (ft)',  ... 

' Style ' , ' text ' ,  ... 

' Tag ' , ' S tat icText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

' Callback' , ' ct=get (gcbo, ' ' String' ' ) ; S_STAB_INPUT_1 . ct=str2num (ct ) ; 

/ 

'Position' , [0.882045  0.466151  0.0982962  0.0483559],  ... 

' String' , ct ,  ... 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.688073  0.398453  0.174312  0.0483559],  ... 

' String' ,' Blade  Radius  (ft)',  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol (' Parent ', H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

' BackgroundColor ',[ 1  11],  ... 

'Callback'  ,  'Rt=get  (gcbo,  '  'String'  ')  ;  S__STAB_INPUT_1  .Rt=str2num(Rt)  ; 

r 

'Position' , [0.882045  0.400387  0.0982962  0.0483559],  ... 

' String' , Rt ,  ... 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ', 'normalized' ,  ... 
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' BackgroundColor ',[ 0 . 752941  0.752941  0.752941],  ... 

' Position' , [0 . 688073  0.334623  0.174312  0.0483559],  ... 

'String' , 'Lift  Curve  Slope',  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H„STAB_IN1 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor ' , [1  11],  ... 

'Callback' , ' at=get (gcbo, ' 'String' ') ; S_STAB_INPUT_1 . at=str2num (at ) ? 

/ 

' Position' ,[0.882045  0.336557  0.0982962  0.0483559],  ... 

' String' , at ,  ... 

'Style' , 'edit' ,  ... 

' Tag ' , ' Edi tTextl ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor ',[ 0 . 752941  0.752941  0.752941],  ... 

'Position' , [0.687254  0.261538  0.17477  0.0538462],  ... 

'String' , 'Rotational  Velocity  (rad/sec) ' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol { 'Parent' ,H_STAB_IN1,  . . . 

'Units' , 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , ' ohmt=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_1 . ohmt=str2num ( 
ohmt) ; ' ,  ... 

'Position' , [0.882045  0.272727  0.0982962  0.0483559],  ... 

'String' ,ohmt,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , 'Edi tTextl' ) ; 

b  =  uicontrol ( 'Parent' ,H_STAB_IN1,  . . . 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' ,  [0.752  941  0.752941  0.752941],  ... 

'Position' , [0.687254  0.192308  0.17477  0.0596154],  ... 

' String' ,' Flap  Moment  of  Inertia  ( slug-f t^2 ) ' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , ' Ibt=get (gcbo, ' 'String' ' ) ; S_STAB__INPUT_1 . Ibt=str2num(Ib 
t);',  ... 

'Position' , [0.882045  0.206963  0.0982962  0.0483559],  ... 

'String' ,Ibt,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , 'Edi tTextl' ) ; 

b  =  uicontrol  (  '  Parent '  ,  H__STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor ',[ 0 . 752941  0.752941  0.752941],  ... 

'Position' , [0.688073  0.141199  0.174312  0.0483559],  ... 

' String ', 'Delta-3  Angle  (degrees)',  ... 

' Style ' , ' text ' ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol ( 'Parent' ,H_STAB_IN1,  . . . 

'Units' , 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 
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'Callback' , ' delta3=get (gcbo, ' 'String' ') ; S_STAB_INPUT_1 . delta3=str2 
num(delta3) ;  '  ,  ... 

'Position' , [0.882045  0.145068  0.0982962  0.0464217],  ... 

' String' , delta3 ,  ... 

'Style' , 'edit' ,  ... 

'Tag' , ' EditTextl ' ) ; 

b  =  uicontrol ( ' Parent ' , H__STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' ,  [0.688073  0.0773694  0.174312  0.0483559],  ... 

'String' , 'Blade  Twist  (degrees)',  ... 

' Style ' , ' text ' ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units' , 'normalized' ,  ... 

' BackgroundColor ' ,[111],  ... 

'Callback' , ' thetalt =get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_1 . thetalt=st 
r2num( thetalt) ;  '  ,  ... 

'Position' ,  [0.882045  0.0793037  0.0982962  0.0483559],  ... 

'String' , thetalt,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol (' Parent ' ,H_STAB_IN1,  . . . 

'Units' , 'normalized' ,  ... 

'Callback' , 'global  S_SC_INPUT_1; 

S_SC_INPUT_1=S_STAB_INPUT__1; s tab_control_input_f cn  contl' ,  ... 

'FontSize' , 12 ,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.51117  0.1  0.164258  0.0807692],  ... 

'  String' , 'Continue  »',  ... 

' Tag ' , ' Pushbutton4 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ', 'normalized' ,  ... 

'Callback' , ' stab„control_input_f cn  backl ' ,  ... 

' FontSize ' , 12 ,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.339028  0.0115385  0.164258  0.0807692],  ... 

'String', '«  Back',  ... 

' Tag ' , ' Pushbuttonl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN1 ,  ... 

'Units ', 'normalized' ,  ... 

'Callback' , ' stab_control_input_f cn  print' ,  ... 

'FontSize' ,12,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.509855  0.00961538  0.164258  0.0807692],  ... 

' String' ,' Print  Screen',  ... 

' Tag ' , ' Pushbutton2 ' ) ; 
b  =  uicontrol ( 'Parent ' ,H_STAB_IN1,  ... 

'Units' , 'normalized' ,  ... 

'Callback' , ' stab_control_input_fcn  cnx' ,  ... 

' FontSize ' , 12 ,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.339028  0.1  0.164258  0.0807692],  ... 

' String ' , ' Cancel ' ,  ... 

' Tag ' , ' Pushbutton3 ' ) ; 

assignin ( ' base ' , ' S_STAB_INPUT_1 ' , S_STAB_INPUT_1 ) ; 
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assignin { ' base ' , ' S_SC_INPUT_1 ' , S_SC_INPUT_1 ) 
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28.  stability_control_input_2.m 


function  stability_control__input_2  () 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics 
object 

%  and  its  children.  Note  that  handle  values  may  change  when  these 
objects 

%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  handle  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT- file  must  be  on  your  path. 

%  Second  GUI  screen  to  input  stability  and  control  paramaters . 

%  Written  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 


load  stability_control_input_2 

global  H_JSTAB_IN1  H_STAB_IN2  S_STAB_INPUT_1  S_STAB_INPUT__2  S_STAB_INPUT 
NAME  S_SC_INPUT_2 

if  -isempty (NAME) 

eval { ['load  ' , NAME] ) 

unstructure_stab__input 

structure_stab_input_2 

else 

load  create_new_stab_2 
s  t rue  ture_s  tab_inpu t_2 
end 

H__STAB_IN2  =  figure  ( 'Units  'normalized'  ,  ... 

'Color' ,[0.80.80.8],  ... 

'Colormap' ,mat0 ,  ... 

'CreateFcn' , 'global  MESH_VAL ,  MESH_VAL=0 ; ; ' ,  ... 

'Name ',' Stability  and  Control  Parameters  page  2',  ... 

'NumberTitle ' , 'off' ,  ... 

' PointerShapeCData' ,matl,  . . . 

'Position' , [0.0025  0.0466667  0.9975  0.89],  ... 

'Tag' , ' Fig2 ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.011236  0.462777  0.313202  0.452716],  ... 

'Style' , ' frame' ,  ... 

'Tag' , 'Framel' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' ,[0.752941  0.752941  0.752941],  ... 

'Position' , [0.0125313  0.00374532  0.313283  0.455056],  ... 

'Style' , ' frame' ,  ... 

'Tag' , 'Frame2 ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 
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'Position' , [0.344612  0.224719  0.315789  0.689139],  ... 

' Style ' , ' frame ' ,  ... 

' Tag ' , ' Frame3 ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.682957  0.134831  0.310777  0.779026],  ... 

' Style ' , ' frame ' ,  ... 

'Tag' , 'Frame4' )  ; 

b  =  uimenu ( ' Parent ' , H_STAB_IN2 ,  ... 

'Label' , 'JANRAD  Options' ,  ... 

'Tag' , 'uimenul' ) ; 
c  =  uimenu ( 'Parent' ,b,  ... 

'Callback'  ,  'performance_input_fcn  quit' ,  ... 

'Label' , 'Quit  JANRAD' ,  ... 

'Tag' , 'JANRAD  OptionsSubuimenul ' ) ; 
c  =  uimenu { 'Parent' ,b,  ... 

'Callback' , 'perf  ormance_input__f  cn  return' ,  ... 

'Label' , 'Return  to  Begining' ,  ... 

'Tag' , 'JANRAD  OptionsSubuimenul' ) ; 
c  =  uimenu ( ' Parent ' , b,  ... 

'Callback' , 'perf ormance_input_f cn  delta_input' ,  ... 

'Enable' , 'of f ' ,  . . . 

'Label' , 'Change  Input  Parameters' ,  ... 

' Tag' , ' Subuimenul ' ) ; 
c  =  uimenu ( ' Parent ' , b,  ... 

'Callback' , 'perf ormance_input_f cn  about' ,  ... 

'Label' , 'About  Janrad  98  .  .  . '  ,  ... 

' Separator ' , ' on' ,  ... 

' Tag ' , ' Subuimenul ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'FontSize' , 14 ,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.106516  0.917603  0.763158  0.0674157],  ... 

'String' , 'STABILITY  AND  CONTROL  PARAMETERS  (PAGE  2  OF  2)',  . 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticText3 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'FontSize' ,14,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.0225564  0.816479  0.290727  0.0898876],  ... 

'String' , 'RIGGING  PARAMETERS' ,  ... 

' Style ' , ' text ' ,  ... 

' Tag ' , ' Stat icTextl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' ,[0.752941  0.752941  0.752941],  ... 

'Position' , [0.0160214  0.763359  0.174667  0.0534351],  ... 

' String' ,' Long  Cyclic  Pitch  per  inch  deflection  (degrees/in) 
' Style ' , ' text '  ,  ... 

'Tag' , 'StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 
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'Units ' , 'normalized' ,  ... 

'BackgroundColor ' ,[111],  ... 

'Callback' , ' dblmddele=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 .dblmddel 
e=str2num(dblmddele) ;  '  ,  ... 

'Position', [0.217867  0.76673  0.0985545  0.0478011],  ... 

' String' , dblmddele,  ... 

' Style ' , ' edit ' ,  ... 

'Tag' , ' EditTextl ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0160214  0.708015  0.1749  0.0534351],  ... 

'String' , 'Lateral  Cyclic  Pitch  per  inch  deflection  (deg/in) ' ,  ... 

' Style ' , ' text ' ,  ... 

' Tag ' , ' StaticText 2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  . . . 

'Units ', 'normalized' ,  ... 

'BackgroundColor ',  [1  11],  ... 

'Callback' , ' dalmddela=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_2 . dalmddel 
a=str2num(dalmddela) ; ' ,  ... 

'Position' , [0.217867  0.709369  0.0985545  0.0478011],  ... 

■  ' String' , dalmddela,  . . . 

' Style ' , ' edit ' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' ,  [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0160214  0.650763  0.173565  0.0515267],  ... 

' String' , 'Collective  pitch  per  inch  deflection  (deg/in)',  ... 

' Style ' , ' text ' ,  ... 

' Tag ' , ' Stat icText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

' BackgroundColor ',[  1  11],  ... 

'Callback' , ' dthetomddelc=get (gcbo, ' 'String' ' ) ; S_STAB„INPUT_2 . dthet 
omddelc=str2num (dthetomddelc) ;',... 

'Position' , [0.217867  0.652008  0.0985545  0.0516252],  ... 

' String' , dthetomddelc,  ... 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol  ( '  Parent '  ,  H_STAB__IN2  ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0160214  0.590566  0.1749  0.0528302],  ... 

'String' , ' thetaOt /pedal  deflection  (deg/in  or  deg/deg) ' ,  ... 

' Style ' , ' text ' ,  ... 

' Tag ' , ' S taticText2 ' ) ; 
b  =  uicontrol (' Parent ', H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor ',  [1  11],  ... 

'Callback' , ' dthetotddelp=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_2 . dthet 
otddelp=str2num(dthetotddelp) ; ' ,  ... 

'Position' , [0.217867  0.594646  0.0985545  0.0516252],  ... 

' String' , dthetotddelp,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 
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'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0160214  0.530189  0.1749  0.0528302],  ... 

' String' , 'NOTAR  slv  twst/defl  (deg.  or  in.  travel)  1000  for  TR' , 

'Style' , 'text' ,  . . . 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor ', [1  11],  ... 

'Callback' , ' sidearm=get (gcbo, ' 'String' ') ; S_STAB_INPUT_2 . sidearm=st 
r2num(sidearm) ; ' ,  ... 

'Position' , [0.218045  0.535581  0.0977444  0.0468165],  ... 

' String ', sidearm,  ... 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0160214  0.466038  0.1749  0.0509434],  ... 

' String' , 'Max  Rudder  Deflection  (deg  or  in.  travel)',  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icText2 ' ) ; 
b  =  uicontrol  (  '  Parent '  ,  H_STAB__IN2  ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor ', [1  11],  ... 

'Callback' , 'maxr=get (gcbo, ' 'String' ' ) ;  S_STAB_INPUT__2  .maxr=str2num( 
maxr) ; ' ,  ... 

'Position' , [0.217623  0.479245  0.0987984  0.0471698],  ... 

' String ' , maxr ,  ... 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'FontSize' ,14,  ... 

' FontWeight ' , 'bold' ,  ... 

'Position' , [0.0200501  0.400749  0.298246  0.0505618],  ... 

' String' , 'NOTAR  PARAMETERS ' ,  ... 

'Style' , 'text' ,  . . . 

'Tag' , ' StaticTextl ' ) ; 
b  =  uicontrol  ( '  Parent '  ,  H_STAB__IN2  ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0291139  0.357414  0.173418  0.0361217],  ... 

' String' , 'Height  Above  waterline  (ft)',  ... 

' Style' , ' text' ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor ', [1  11],  ... 

' Callback' , ' htnd=get (gcbo, ' ' String' ' ) ; S_STAB_INPUT_2 .htnd=str2num( 
htnd) ; ' ,  ... 

'Position' , [0.21682  0.351923  0.0985545  0.0480769],  ... 

' String' ,htnd,  . . . 

'Style' , 'edit' ,  ... 

' Tag ' , ' EditTextl ' ) ; 
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b  =  uicontrol ( ' Parent ' , H_STAB__IN2 ,  ... 

'Units' , 'normalized' ,  ... 

' BackgroundColor ',[ 0 . 752941  0.752941  0.752941],  ... 

'Position' , [0.0293725  0.290566  0.1749  0.0509434],  ... 

'String' , 'Boom  Fuselage  Station  (ft) '  ,  ... 

' Style ' , ' text ' ,  ... 

' Tag ' , ' S tat icText 2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units' , 'normalized'  ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , ' ltnd=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 . Itnd=str2num ( 
ltnd) ; ' ,  ... 

'Position' , [0.21682  0.294231  0.0985545  0.05],  ... 

'String' , ltnd,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , ' EditTextl ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ' , 'normalized'  ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0293725  0.233962  0.173565  0.0490566],  ... 

' String' Boom  Position  Right  of  Buttline  (ft)',  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icText 2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , 'ytnd=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 .ytnd=str2num( 
ytnd) ; ' ,  ... 

'Position' , [0.21682  0.236538  0.0985545  0.0480769],  ... 

'String' ,ytnd,  ... 

' Style ' , ' edit ' ,  ... 

'Tag' , 'EditTextl'  )  ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0293725  0.19434  0.173565  0.0358491],  ... 

'String' , 'NOTAR  diameter  (ft) ) ' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icText 2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , ' dian=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_2 . dian=str2num ( 
dian) ; ' ,  ... 

'Position' , [0.21682  0.180769  0.0985545  0.0480769],  ... 

' String' , dian,  . . . 

' Style ' , ' edit ' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol (' Parent ', H_STAB_IN2 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0293725  0.120755  0.173565  0.0584906],  ... 

' String' ,' Swirl  Angle  at  Boom  (degrees)',  ... 

'Style' , 'text' ,  ... 

'Tag' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ' , 'normalized'  ,  ... 
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'BackgroundColor ' , [1  11],  ... 

'Callback' , ' swirl=get (gcbo, ' 'String' ' ) ;  S_STAB_INPUT__2  .  swirl=str2nu 
m( swirl) ; ' ,  ... 

'Position' , [0.21682  0.125  0.0985545  0.0480769],  ... 

' String ' , swirl ,  ... 

'Style' , 'edit' ,  ... 

'Tag' , ' EditTextl ' )  ; 

b  =  ui control ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0293725  0.0792453  0.173565  0.0339623],  ... 

'String' , 'NOTAR  Max  Force  (lbs) ' ,  ... 

' Style' , ' text' ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor ', [1  11],... 

'Callback' , 'Ytmaxn=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 . Ytmaxn=str2 
num(Ytmaxn) ; ' ,  ... 

'Position' ,  [0.215506  0.0711538  0.0998686  0.0480769],  ... 

' String' ,Ytmaxn,  ... 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol  ( '  Parent '  ,  H_STAB__IN2  ,  ... 

'Units' , 'normalized'  ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0293725  0.0113208  0.173565  0.0528302],  ... 

' String' ,' Thruster  Fuselage  Station  (ft)',  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ',' normalized' ,  ... 

'BackgroundColor ', [1  11],  ... 

'Callback'  ,  'lttnd=get  (gcbo,  '  'String'  '  )  ;  S_STAB_INPUT__2  .  Ittnd=str2nu 
m(lttnd) ; ' ,  ... 

'Position' , [0.21682  0.0173077  0.0985545  0.0480769],  ... 

' String' , Ittnd,  . . . 

' Style ' , ' edit ' ,  ... 

'Tag' , 'EditTextl '  )  ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' ,[0.752941  0.752941  0.752941],  ... 

'FontSize' ,14,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.358396  0.754682  0.286967  0.151685],  ... 

'String', 'CG  LOCATION  &  INERTIAS /FUSELAGE  PARAMETERS',  ... 

'Style' , 'text' ,  ... 

'Tag' , 'StaticTextl' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.356475  0.704198  0.171278  0.0458015],  ... 

'String' , 'CG  Height  Above  Waterline  (ft) ' ,  ... 

' Style' , ' text' ,  ... 

' Tag ' , ' Stat icText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 


195 


'BackgroundColor ' , [1  11],  ... 

' Callback' , ' zcg=get (gcbo , ' ' String ' ' ) ; S_STAB_INPUT_2 . zcg=str2num( zc 

g) ; '  /  ... 

'Position' , [0.550591  0.705545  0.0985545  0.0478011],  ... 

' String' , zcg,  . . . 

' Style' , ' edit ' ,  ... 

'Tag' , ' EditTextl ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

' Units ',' normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.356475  0.633588  0.172596  0.0496183],  ... 

'String', 'CG  Fuselage  Station  (ft)',  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' Stat icText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , ' xcg-get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_2 .xcg=str2num (xc 

g) ; ' ,  ... 

'Position' , [0.551905  0.634799  0.0985545  0.0497132],  ... 

'String' ,xcg,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units' , 'normalized'  ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'FontSize' ,6,  ... 

'Position' , [0.356475  0.564885  0.172596  0.0477099],  ... 

'String', 'CG  Position  Right  of  Buttline  (ft))',  ... 

'Style' , ' text' ,  ... 

' Tag ' , ' StaticText2 ' )  ; 
b  =  uicontrol (' Parent ', H_STAB_IN2 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor'  ,[111],  ... 

'Callback' , ' ycg=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_2 .ycg=str2num (yc 

g)  ; '  / 

'Position' , [0.551905  0.56979  0.0985545  0.0478011],  ... 

'String' ,ycg,  ... 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.356475  0.50478  0.173456  0.0478011],  ... 

'String' , ' Ixx  (slug  ft*2)',  ... 

' Style ' , ' text ' ,  ... 

'Tag' , ' StaticText2 ' ) ; 
b  -  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , ' Ixx=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_2 . Ixx=str2num ( lx 

x)  ;  7  / 

'Position' , [0.551905  0.506692  0.0985545  0.0478011],  ... 

' String' , Ixx,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 
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'Units' , 'normalized' ,  ... 

'BackgroundColor ' ,[0.752941  0.752941  0.752941],  ... 

'Position' , [0.356475  0.438931  0.173565  0.0496183],  ... 

'String' , ' Iyy  (slug  ftA2)',  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , ' Iyy = get (gcbo, ' 'String' ' ) ; S_JSTAB_INPUT_2 . Iyy=str2num( Iy 

y)  ; '  / 

'Position' , [0.551905  0.441683  0.0985545  0.0497132],  ... 

'String' , Iyy,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.356475  0.374761  0.173456  0.0478011],  ... 

'String' , 'Izz  (slugftA2)',  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' S taticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , ' Izz=get (gcbo, ' ' String' ' ) ; S_STAB_INPUT_2 . Izz=str2num(Iz 

z )  ;  '  ,  ... 

'Position' , [0.551905  0.376673  0.0985545  0.0478011],  ... 

'String' , Izz,  . . . 

'Style' , 'edit' ,  ... 

-  'Tag' , 'EditTextl' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.356475  0.304015  0.173456  0.0554493],  ... 

'String' , ' Ixz  (slugftA2)',  ... 

' Style' , ' text ' ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor ', [1  11],  ... 

'Callback' , ' Ixz=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 . Ixz=str2num( lx 

2)  .  '  , 

'Position' , [0.551905  0.313576  0.0985545  0.0478011],  ... 

' String' , Ixz ,  ... 

'Style' , 'edit' ,  ... 

' Tag ' , ' EditTextl ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.356475  0.237094  0.17477  0.0535373],  ... 

'String' , 'Fuselage  Downwash  Ratio  (page  513  Prouty) ' ,  ... 

' Style' , ' text' ,  ... 

' Tag ' , ' StaticText2 '  )  ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 
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'Callback'  ,  '  vfvl=get  {gcbo,  '  'String'  '  )  ;  S_STAB__INPUT_2  .  vfvl=str2num( 
vf vl ) ; ' ,  ... 

' Position' , [0.551905  0.248566  0.0985545  0.0478011],  ... 

'String' , vfvl,  ... 

'Style' , 'edit'  ,  ... 

'Tag' , ' EditTextl ' )  ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'FontSize' ,14,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.68797  0.797753  0.289474  0.0898876],  ... 

'String' , 'WING  PARAMETERS' ,  ... 

'Style' , 'text' ,  . . . 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol  ( '  Parent '  ,  H_STAB__IN2  ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.68594  0.745698  0.173456  0.0458891],  ... 

'String' , 'Height  Above  Waterline  (ft)',  ... 

'Style' , 'text' ,  ... 

'Tag' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB„IN2 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , 'hwd=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 .hwd=str2num(hw 
d);',  ... 

'Position' , [0.88042  0.74761  0.0985545  0.0478011],  ... 

'String' ,hwd,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.68594  0.674952  0.17477  0.0497132],  ... 

' String' ,' Fuselage  Station  (ft)',  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' S tat icText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' , [1  11],  ... 

'Callback' , ' lwd=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_2 . Iwd=str2num(lw 
d)  ;  '  ,  ... 

'Position' , [0.881735  0.676864  0.0985545  0.0497132],  ... 

' String' , lwd,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' )  ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'FontSize' , 6 ,  ... 

'Position' , [0.68594  0.609943  0.173456  0.0478011],  ... 

' String' ,' Position  Right  of  Buttline  (ft)',  ... 

'Style' , 'text' ,  ... 

'Tag' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 
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'BackgroundColor ' ,[111],  ... 

'Callback' , 'ywd= get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 .ywd=str2num (yw 
d)  ;  '  ,  ... 

'Position' , [0.881735  0.611855  0.0985545  0.0478011],  ... 

' String' ,ywd,  ... 

'Style' , 'edit'  ,  ... 

'Tag' , ' EditTextl ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor ',[0.752941  0.752941  0.752941],  ... 

'Position' , [0.68594  0.544933  0.17477  0.0478011],  ... 

'String' , 'Alpha  Zero  Lift  (degrees) ' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , ' alplow=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 .alplow=str2 
num(alplow) ; ' ,  ... 

'Position' , [0.881735  0.548757  0.0985545  0.0478011],  ... 

' String' , alplow,  ... 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.68594  0.481836  0.173456  0.0497132],  ... 

' String' , 'Angle  of  Incidence  (degrees)',  ... 

' Style' , ' text' ,  ... 

' Tag' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , ' iw=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 . iw=str2num( iw) ; 

/ 

'Position' , [0.881735  0.483748  0.0985545  0.0497132],  ... 

'String' , iw,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.68594  0.355641  0.17477  0.0478011],  ... 

' String' , 'Tip  Chord  (ft)',  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol ( 'Parent' ,H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , ' ctw=get (gcbo, ' 'String' ' ) ; S__STAB_INPUT_2 . ctw=str2num(ct 
w)  ;  '  ,  ... 

'Position' ,  [0.881735  0.418738  0.0985545  0.0478011],  ... 

' String ' , ctw,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl') ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units' , 'normalized' ,  ... 
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'BackgroundColor', [0.752941  0.752941  0.752941],  ... 

'Position' , [0.68594  0.416826  0.17477  0.0478011],  ... 

' String' ,' Lift  Curve  Slope',  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , ' aw=get (gcbo, ' 'String' ') ; S_STAB_INPUT_2 . aw=str2num (aw) ; 

t 

'Position' , [0.881735  0.355641  0.0985545  0.0478011],  ... 

'  String' , aw,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , ' EditTextl ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units' , 'normalized'  ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.68594  0.286807  0.17477  0.0535373],  ... 

' String' , 'Root  Chord  (ft)',  ... 

'Style' , 'text' ,  ... 

'Tag' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ' , 'normalized'  ,  ... 

'BackgroundColor ', [1  11],  ... 

'Callback' , ' crw=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_2 . crw=str2num(cr 
w)  ?  '  ,  ... 

'Position' , [0.881735  0.290631  0.0985545  0.0478011],  ... 

' String' , crw,  . . . 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.68594  0.217973  0.17477  0.0592734],  ... 

'String' , 'Rotor  Downwash  Ratio  (page  489-Prouty) ' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ' , 'normalized' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , ' vwvl = get (gcbo, ' 'String' ') ; S_STAB_INPUT__2 . vwvl=str2num ( 
vwvl ) ; '  ,  ... 

'Position' , [0.881735  0.225621  0.0985545  0.0478011],  ... 

' String ' , vwvl ,  ... 

'Style' , 'edit' ,  ... 

'Tag' , 'EditTextl' )  ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units' , 'normalized' ,  ... 

' BackgroundColor' ,[0.752941  0.752941  0.752941],  ... 

'Position' , [0.68594  0.1587  0.173456  0.0497132],  ... 

'String' , 'Fuselage  Downwash  Ratio  (page  489-Prouty) ' ,  ... 

'Style' , 'text' ,  . . . 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

' Units ',' normalized' ,  ... 

'BackgroundColor ', [1  11],  ... 
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'Callback' , ' detafdalpfw=get (gcbo, ' 'String' ' ) ; S__STAB_INPUT_2 . detafd 
alp  fw=str2num  (detafdalpfw) ;',... 

' Position' , [0.881735  0.162524  0.0985545  0.0478011],  ... 

' String' , detafdalpfw,  ... 

'Style' , 'edit' ,  ... 

'Tag' , ' EditTextl ' ) ; 

b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units' , 'normalized' ,  ... 

'Callback', 'global  S_SC_INPUT_2 ; 

S_SC_INPUT_2=S_STAB_INPUT_2  ;  stab_control_input_f cn  cont2  '  ,  ... 

'FontSize' , 12 ,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.51117  0.1  0.164258  0.0807692],  ... 

'  String' ,' Continue  »',  ... 

'Tag' , ' Pushbutton4 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units' , 'normalized'  ,  ... 

'Callback' , ' stab_control_input_f cn  back2 ' ,  ... 

' FontSize' , 12 ,  ... 

'FontWeight' , 'bold' ,  ... 

' Position' , [0/339028  0.0115385  0.164258  0.0807692],  ... 

'String', '«  Back',  ... 

'Tag' , ' Pushbuttonl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units ' , 'normalized' ,  ... 

'Callback' , ' stab_control_input_f cn  print' ,  ... 

'FontSize' ,12,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.510013  0.0114504  0.164219  0.0801527],  ... 

' String' ,' Print  Screen',  ... 

' Tag ' , ' Pushbutton2 ' ) ; 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units' , 'normalized' ,  ... 

'Callback' , ' stab_control_input_f cn  cnx' ,  ... 

' FontSize '  ,  12 ,  ... 

'FontWeight' , 'bold' ,  ... 

'Position' , [0.339119  0.101145  0.164219  0.0801527],  ... 

' String ' , ' Cancel ' ,  ... 

'Tag' , ' Pushbutton3 ' ) ; 
b  =  uicontrol { ' Parent ' , H_STAB_IN2 ,  ... 

'Units ', 'normalized' ,  ... 

'BackgroundColor' ,  [0.752941  0.752941  0.752941],  ... 

'FontSize' ,14,  ... 

' FontWeight ' , ' bold ' ,  ... 

'Position' , [0.755357  1.09524  0.296199  0.0831721],  ... 

'String' , 'MAIN  ROTOR  PARAMETERS' ,  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticText 1 ' ) ? 
b  =  uicontrol ( ' Parent ' , H_STAB_IN2 ,  ... 

'Units' , 'normalized' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [0.0160214  0.760377  0.1749  0.0528302],  ... 

' String' ,' Long  Cyclic  Pitch  per  inch  deflection  (degrees/in)',  ... 
'Style' , 'text' ,  ... 

'Tag' , ' StaticText2 ' ) ; 

assignin ( ' base ' , ' S_STAB_INPUT_2 ' , S_STAB_INPUT_2 ) ; 
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assignin ( ' base ' , ' S_SC_INPUT_2 ' , S_SC_INPUT_2 ) 
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29.  stby_scm.m 


function  stby_scrn ( ) 

%  This  is  the  machine-generated  representation  of  a  MATLAB  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these 
%  objects  are  re-created.  This  may  cause  problems  with  some  callbacks. 

%  The  command  syntax  may  be  supported  in  the  future,  but  is  currently 
%  incomplete  and  subject  to  change. 

% 

%  To  re-open  this  system,  just  type  the  name  of  the  m-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associtated  MAT-file  must  be  on  your  path. 

%  GUI  screen  to  see  while  plots  are  being  generated 

%  Written  for  JANRAD  version  6.0  by  LT  David  A..Heathorn 

load  stby_scrn 

global  H_STBY_SCRN 

H_STBY_SCRN  =  f igure ( ' Color ' , [ 0 . 8  0.8  0.8],  ... 

' Colormap ' , mat 0 ,  ... 

'Name' , 'Standby  Screen' ,  ... 

'NumberTitle' , 'off' ,  ... 

' PointerShapeCData ' , matl ,  ... 

'Position' , [236  243  394  201],  ... 

'Tag' , ' Fig2 ' ) ; 

b  =  uicontrol(' Parent'  ,  H__STBY_SCRN,  ... 

'Units' , 'points' ,  ... 

' BackgroundColor ',[ 0 . 752941  0.752941  0.752941],  ... 

'Position' , [7.5  4.5  278.25  135.75],  ... 

' Style ' , ' frame ' ,  ... 

'Tag' , ' Framel ' ) ; 


b  =  uicontrol (' Parent '  , H_STBY_SCRN ,  ... 

'Units ', 'points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'FontSize' ,25,  ... 

'Position' , [32.25  95.25  231  37.5],  ... 

' String' ,' Please  stand-by',  ... 

'Style' , 'text' ,  ... 

' Tag ' , ' StaticTextl ' ) ; 
b  =  uicontrol ( ' Parent '  , H_STBY„SCRN,  . . . 

'Units ', 'points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

' FontSize' , 15 ,  ... 

' Position' , [33  18.75  231  37.5],  ... 

' String' ,' This  could  take  a  minute  or  two',  ... 
'Style' , 'text' ,  ... 

'Tag' , 'StaticTextl' ) ; 


203 


30.  Step_plotter.m 

%  Step_plotter 

%  Written  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 
global  Amat  Bmat  u  C  T_ST0P  T_INC 
D=0 ; 

t„start=0 ; 
t__inc=T__INC  ; 
t_s  top=T_STOP ; 

t=t_s tart :  t_inc :  t__stop ; 

if  u(l)==l 


for  j=l : length (C) 
if  C ( j , 3 ) ==1 
figure 

[num, den] =ss2tf (Amat , Bmat ( : , 1) , C ( j , : ) , D) ; 
t 

[y] -step (num, den, t) ; 
plot (t,y) 

xlabel ( ' time  (sec) ' ) 
grid 
if  j==l 

title ( 7  Response  of  x-velocity  (u)  to  Longitudinal  Cyclic 

Step  Input 7 ) 

ylabel ( 7 Velocity  (ft/sec)7) 
elseif  j==2 

title ( 7 Response  of  z-velocity  (w)  to  Longitudinal  Cyclic 

Step  Input7) 

ylabel ( 7 Velocity  ( ft/sec) 7 ) 
elseif  j==3 

title ( 'Response  of  Pitch  Rate  (q)  to  Longitudinal  Cyclic 

Step  Input7) 

ylabel ( 7  Pitch  Rate  (rad/sec)7) 
elseif  j==4 

title ( 'Response  of  Pitch  Angle  (theta)  to  Longitudinal 
Cyclic  Step  Input7) 

ylabel ( 7  Pitch  Angle  (rad.)7) 
elseif  j  ==5 

title ( 'Response  of  y-veloctiy  (v)  to  Longitudinal  Cyclic 

Step  Input 7 ) 

ylabel ( 7 Velocity  (ft/sec) ') 
elseif  j  =-6 

title ( 'Response  of  Roll  Rate  (p)  to  Longitudinal  Cyclic  Step 

Input 7 ) 

ylabel ('Roll  Rate  (rad/sec)7) 
elseif  j --1 

title ( 'Response  of  Roll  Angle  (phi)  to  Longitudinal  Cyclic 

Step  Input7) 

ylabel ('Roll  Angle  (rad)7) 
elseif  j==8 

title ( 'Response  of  Yaw  Rate  (r)  to  Longitudinal  Cyclic  Step 

Input 7 ) 
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ylabel ('Yaw  Rate  (rad/ sec)') 
elseif  j==9 

title ( 'Response  of  Yaw  Angle  (psi)  to  Longitudinal  Cyclic 

Step  Input ' ) 

ylabel ( 'Yaw  Angle (rad) ' ) 
end 

end 

end 

elseif  u(2)==l 

for  j=l : length (C) 
if  C ( j , j ) ==1 
figure 

[num,den] =ss2tf (Amat , Bmat ( :  ,  1)  ,  C  (j  ,  : )  ,  D)  ; 

[y] =step (num, den, t) ; 
plot (t,y) 

xlabel ( ' time  (sec) ' ) 
grid 

xlabel ('time  (sec)') 
if  j==l 

title ( 'Response  of  x-velocity  (u)  to  Collective  Step  Input') 
ylabel ( 'Velocity  (ft/sec) ' ) 
elseif  j==2 

title ( 'Response  of  z-velocity  (w)  to  Collective  Step  Input') 
ylabel ( 'Velocity  (ft/sec)') 
elseif  j==3 

title ( 'Response  of  Pitch  Rate  (q)  to  Collective  Step  Input') 
ylabel (' Pitch  Rate  (rad/sec)') 
elseif  j==4 

title ( 'Response  of  Pitch  Angle  (theta)  to  Collective  Step 

Input ' ) 

ylabel ( ' Pitch  Angle  (rad . ) ' ) 
elseif  j==5 

title ( 'Response  of  y-veloctiy  (v)  to  Collective  Step  Input') 
ylabel ( 'Velocity  (ft/sec) ') 
elseif  j  ==6 

title ( 'Response  of  Roll  Rate  (p)  to  Collective  Step  Input') 
ylabel ('Roll  Rate  (rad/sec)') 
elseif  j==7 

title ( 'Response  of  Roll  Angle  (phi)  to  Collective  Step 

Input ' ) 

ylabel ('Roll  Angle  (rad)') 
elseif  j  ==8 

title ( 'Response  of  Yaw  Rate  (r)  to  Collective  Step  Input') 
ylabel ( 'Yaw  Rate  (rad/ sec) ' ) 
elseif  j  ==9 

title ( 'Response  of.  Yaw  Angle  (psi)  to  Collective  Step 

Input ' ) 

ylabel ( 'Yaw  Angle (rad) ' ) 
end 

end 

end 


elseif  u (3 ) ==1 

for  j=l : length (C) 
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if  C(j,j)==l 
figure 

[num; den] =ss2tf (Amat , Bmat ( :  ,  1)  ,  C  (j  ,  : )  ,  D)  ; 

[y] =step (num, den, t) ; 
plot (t,y) 

xlabel ( ' time  ( sec )  ' ) 

grid 

if  j==l 

title  (' Response  of  x-ve'locity  (u)  to  Lateral  Cyclic  Step 

Input '  ) 

ylabel ( 'Velocity  (ft/sec) ') 
elseif  j==2 

title ( 'Response  of  z -velocity  (w)  to  Lateral  Cyclic  Step 

Input ' ) 

ylabel ( 'Velocity  ( ft/sec) ' ) 
elseif  j==3 

title ( 'Response  of  Pitch  Rate  (q)  to  Lateral  Cyclic  Step 

Input '  ) 

ylabel (' Pitch  Rate  (rad/sec)') 
elseif  j==4 

title ( 'Response  of  Pitch  Angle  (theta)  to  Lateral  Cyclic 

Step  Input') 

ylabel (' Pitch  Angle  (rad.)') 
elseif  j==5 

title ( 'Response  of  y-veloctiy  (v)  to  Lateral  Cyclic  Step 

Input ' ) 

ylabel ( 'Velocity  (ft/sec) ' ) 
elseif  j==6 

title ( 'Response  of  Roll  Rate  (p)  to  Lateral  Cyclic  Step 

Input'  ) 

ylabel ('Roll  Rate  (rad/sec)') 
elseif  j==7 

title (' Response  of  Roll  Angle  (phi)  to  Lateral  Cyclic  Step 

Input ' ) 

ylabel ('Roll  Angle  (rad)') 
elseif  j  ==8 

title ( 'Response  of  Yaw  Rate  (r)  to  Lateral  Cyclic  Step 

Input ' ) 

ylabel ('Yaw  Rate  (rad/sec)') 
elseif  j==9 

title ( 'Response  of  Yaw  Angle  (psi)  to  Lateral  Cyclic  Step 

Input ' ) 

ylabel ('Yaw  Angle(rad)') 
end 

end 

end 


elseif  u(4)==l 

for  j=l : length (C) 
if  C(j,j)==l 
figure 

[num, den] =ss2tf (Amat ,Bmat ( : , 1) ,C ( j , : ) ,  D)  ; 
[y] =step (num, den, t ) ; 
plot (t,y) 
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xlabel ( ' time  (sec) ' ) 

grid 

if  j==l 

title (' Response  of  x- velocity  (u)  to  Pedal  Step  Input') 
ylabel ( 'Velocity  (ft/sec) ' ) 
elseif  j  ==2 

title (' Response  of  z -velocity  (w)  to  Pedal  Step  Input') 
ylabel ( 'Velocity  (ft/sec) ' ) 
elseif  j==3 

title ( 'Response  of  Pitch  Rate  (q)  to  Pedal  Step  Input') 
ylabel (' Pitch  Rate  (rad/sec)') 
elseif  j==4 

title ( 'Response  of  Pitch  Angle  (theta)  to  Pedal  Step  Input') 
ylabel ( ' Pitch  Angle  (rad. ) ' ) 
elseif  j==5 

title ( 'Response  of  y-veloctiy  (v)  to  Pedal  Step  Input') 
ylabel ( 'Velocity  (ft/sec) ' ) 
elseif  j==6 

title ( 'Response  of  Roll  Rate  (p)  to  Pedal  Step  Input') 
ylabel ('Roll  Rate  (rad/sec)') 
elseif  j==7 

title ( 'Response  of  Roll  Angle  (phi)  to  Pedal  Step  Input') 
ylabel ('Roll  Angle  (rad)') 
elseif  j==8 

title ( 'Response  of  Yaw  Rate  (r)  to  Pedal  Step  Input') 
ylabel ('Yaw  Rate  (rad/ sec) ' ) 
elseif  j==9 

title (' Response  of  Yaw  Angle  (psi)  to  Pedal  Step  Input') 
ylabel ( 'Yaw  Angle (rad) ' ) 
end 

end 

end 


end 
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31.  structure_stab_input.m 

%  Structure  Consruction  for  JANRAD9 8  stability__control_input .m 

%  Created  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 

S_STAB„INPUT= s  t rue  t ( . . . 

'Ib' ,1b, . . . 

'  hind '  ,  hmd ,  .  .  . 

'  lmd '  ,  lmd ,  .  .  . 

'  ymd '  ,  ymd ,  .  .  . 

' im' , im, . . . 

'htd' , htd, . . . 

7  ltd' , ltd,  . . . 

'ytd'  ,ytd,  . .  . 

'bt ' , bt , . . . 

'ct '  , ct, .  .  . 

' Rt ' , Rt , . . . 

'at' ,at, .  .  . 

' ohmt ' , ohmt ,  .  .  . 

' Ibt ' , Ibt , . . . 

' delta3 ' , delta3 , . . . 

' thetalt ' , thetalt, . . . 

' hvd ' , hvd , . . . 

' lvd' , lvd, . . . 

'yvd'  ,yvd,  .  .  . 

'alplov' , alplov, . . . 

'clvertmax' ,clvertmax, . . . 

'qvq' / qvq, . . . 

'a v '  , a v ,  . . . 

' hhd ' , hhd  ,  . . . 

' lhd' , lhd, . . . 

' yhd ' , yhd - 

'alploh' , alploh, . . . 

'  ih'  , ih, . . . 

' ah ' , ah , . . . 

'qhq' , qhq, . . . 

'  vhvl '  , vhvl,  .  . 

' detaf dalpfh' , detafdalpfh, . . . 

' hwd ' , hwd , . . . 

' lwd ' , lwd , . . . 

'  ywd ' ,  ywd ,  .  .  . 

'alplow' , alplow, . . . 

' iw' , iw, . . . 

'aw'  ,aw,  .  .  . 

' ctw' , ctw,  . . . 

'  erw' ,  erw,  .  .  . 

' vwvl ' , vwvl , . . . 

' detaf dalpfw' , detafdalpfw, . . . 

' zcg' , zcg , . . . 

'xcg' , xcg, . . . 

'yeg' , yeg , ... 

' Ixx' , Ixx, ... 

'Iyy' ,Iyy(  .  .  . 

' Izz ' , Izz ,  .  .  . 

' Ixz ' , Ixz , . . . 

' vf vl ' ,vfvl, . . . 
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'htnd' ,htnd, . . . 

'  ltnd' , ltnd, . . . 

'ytnd' ,ytnd, . . . 

'  dian' , dian, . . . 

'  swirl ' , swirl, . . . 

'Ytmaxn'  ,Ytmaxn,  .  .  . 

'  lttnd' , lttnd, . .  . 

' dblmddele'  , dblmddele,  *  .  . 
'dalmddela' , dalmddela, . . . 

'  dthetomddelc '  ,  dthetoruddelc 
' dthetotddelp' , dthetotddelp 
7  sidearm' , sidearm, . . . 

'maxr'  ,maxr)  ; 


32.  structure_stab_input_l.m 

%  Structure  Consruction  for  JANRAD98  stability_control_input_l .m 

%  Written  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 

S_STAB_INPUT_1  =  struct ( . .  . 

'Ib' ,1b,... 

#  hind 7  ,  hmd ,  .  .  . 

'  Imd 7  ,  lmd ,  .  .  . 

7ymd7  ,  ymd,  .  .  . 

' im' , im,  . .  . 

' hvd 7 , hvd , . . . 

7 lvd7 , lvd, . . . 

7  yvd 7 , yvd ,  . . . 

'alplov7 ,aiplov, . . . 

7clvertmax7 ,clvertmax, . . . 

7qvq7 ,  qvq, . . . 

7av7 ,av, . . . 

7hhd7 ,hhd, . . . 

7 lhd7 , lhd, . . . 

7  yhd 7 , yhd ,  . . . 

'alploh7 ,alploh, . . . 

7 ih7 , ih, . . . 

7  ah 7 , ah ,  . . . 

7  qhq7 , qhq,  . . . 

7  vhvl 7 , vhvl ,  . . . 

7 detafdalpfh7 , detaf dalpfh, . . . 

7  htd7 , htd,  . . . 

7  ltd7 , ltd,  . . . 

7ytd7 ,ytd, . . . 

7  bt 7 , bt , . .  . 

7  ct 7 , ct , . . . 

7  Rt 7 , Rt ,  .  . . 

7  at 7 ,at, . . . 

7  ohmt 7 , ohmt ,  . . . 

7 Ibt 7 , Ibt ,  . . . 

7  delta3  7 , delta3 , . . . 

7  thetalt 7 , thetalt) ; 
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33.  structure_stab_input_2.m 

%  Structure  Consruction  for  JANRAD98  stability__control__input_2  .m 

%  Written  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 

S_STAB_INPUT_2=struct ( . . . 

' hwd7 , hwd, . . . 

7 lwd7 , lwd, . . . 

7ywd7  ,ywd,  .  .  . 

' alplow7 , alplow, . . . 

'  iw7  ,  iw,  .  .  . 

'aw' , aw, . . . 

' ctw7 , ctw, . . . 

' crw7 , crw, . . . 

7 vwvl ' , vwvl , . . . 

' detafdalpfw7 , detaf dalpfw, . . . 

' zcg' , zcg, . . . 

'xcg7 ,xcg, . . . 

'ycg' ,ycg, . . . 

'  I XX 7  ,  I XX,  .  .  . 

'iyy' ,  iyy, • • • 

7 Izz 7 , Izz, .  .  . 

7 Ixz7 , Ixz, . . . 

7  vf vl 7 , vfvl, .  .  . 

7  htnd 7 , htnd , . . . 

7 Itnd7 , ltnd, . . . 

7ytnd7 ,ytnd, . . . 

7dian7 , dian, . . . 

7  swirl 7 , swirl, . . . 

'Ytmaxn7 ,Ytmaxn, . . . 

7 lttnd7 , lttnd, . . . 

7dblmddele7  , dblmddele, . . . 

'dalmddela7 ,dalmddela,  . . . 

7  dthetomddelc 7 , dthetomddelc , . . . 

'dthetotddelp7 , dthetotddelp, ... 

7  sidearm7 , sidearm, . . . 

7  maxr 7 , maxr ) ; 
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34.  tailwarn.m 


function  tail_warn() 

%  This  is  the  machine-generated  representation  of  a  MATLAB  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these 
%  objects  are  re-created.  This  may  cause  problems  with  some  callbacks. 

%  The  command  syntax  may  be  supported  in  the  future,  but  is  currently 
%  incomplete  and  subject  to  change. 

% 

%  To  re-open  this  system,  just  type  the  name  of  the  m-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associtated  MAT-file  must  be  on  your  path. 

%  GUI  screen  to  indicated  version  is  not  configured  for  fan-in-tail  or 
NOTAR 

%  Created  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 
load  tail_warn 

a  =  figure { ' Color ' , [0.8  0.8  0.8],  ... 

' Colormap' , matO ,  ... 

'Name' , 'Tail  Warning' ,  ... 

'NumberTitle' , 'off ' ,  ... 

' PointerShapeCData' ,matl,  . . . 

'Position' , [252  240  402  201],  ... 

'Tag' , ' Fig2 ' ) ; 

b  =  uicontrol (' Parent ', a,  ... 

'Units ', 'points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'FontSize' ,18,  ... 

•  'Position' , [42.75  39.75  212.25  69.75],  ... 

' String' , 'JANRAD  is  not  currently  configured  for  fan-in-tail  or 
NOTAR  systems . ' ,  ... 

'Style' , 'text' ,  ... 

' Tag' , ' StaticTextl ' )  ; 
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35.  temp_stab.m 

%  Structure  Consruction  for  JANRAD98  stability_control_input .m 

%  JANRAD  98  VERSION  5.0 

S_STAB_INPUT=struct ( . . . 

'Ib' ,Ib, . . . 

7 hind'  ,  hmd,  .  .  . 

7  lmd7  ,  lmd,  .  .  . 

7ymd7  ,ymd,  .  .  . 

7  im7  ,  im,  .  .  . 

7htd' ,htd, . . . 

7  ltd7 , ltd, . . . 

'ytd7 ,ytd, ... 

7bt 7 ,bt , . . . 

7ct7 ,ct, . . . 

7  Rt 7 , Rt , . . . 

7  at 7 , at, . . . 

7  ohmt 7 , ohmt ,  . . . 

7 Ibt ' , Ibt , . . . 

7  delta3  7 , delta3 ,  . . . 

7  thetalt 7 , thetalt , . . . 

7  hvd 7 , hvd , . . . 

7 lvd7 , lvd, . . . 

7yvd7  ,yvd,  ... 

'alplov7 ,alplov, . . . 

'clvertmax7 ,clvertmax, . . . 

'qvq7 ,qvq, . . . 

7  a  v 7  ,  a  v ,  .  .  . 

7hhd7 ,hhd, . . . 

7 lhd7 , lhd, . . . 

7yhd7  ,yhd,  .  .  . 

'alploh7 ,alploh, . . . 

7 ih7 , ih, . . . 

7  ah7 ,ah, . . . 

7  qhq7 ,  qhq,  ... 

7  vhvl 7 , vhvl , . . . 

'detafdalpfh7 , detaf dalpfh, . . . 

7hwd7 ,hwd, . . . 

7 Iwd7 , Iwd, . . . 

7  ywd 7  ,  ywd ,  .  .  . 

'alplow7 ,alplow, . . . 

7 iw7 , iw, . . . 

7  aw7 , aw, . . . 

7  ctw7 , ctw, .  .  . 

7crw7 ,crw, . . . 

7  vwvl 7 , vwvl , . . . 

7 detafdalpfw7 , detafdalpfw, . . . 

7  zcg7 , zcg, . . . 

7xcg7 ,xcg, . . . 

7ycg7 ,ycg, . . . 

7 Ixx7 , Ixx, . . . 

' iyy' / lyy* • • • 

7 Izz  7 , Izz,  .  .  . 

7 Ixz 7 , Ixz ,  .  .  . 

7  vfvl7 , vfvl, .  .  . 
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'htnd' ,htnd, . . . 

'  ltnd' , ltnd, . . . 

'ytnd' ,ytnd, . . . 

'  dian' , dian,  . . . 

'  swirl ' , swirl ,  .  .  . 

'Ytmaxn' .Ytmaxn, . . . 

'  lttnd' , lttnd, . . . 

'dblmddele' , dblmddele, . . . 
'dalmddela' , dalmddela, . . . 

'  dthetomddelc 9  , dthetomddelc 
'dthetotddelp' , dthetotddelp 
'  sidearm' , sidearm, . . . 

'maxr' , maxr) ; 


36.  time_freq_resp.m 


function  time_f req_resp ( ) 

%  This  is  the  machine- generated  representation  of  a  MATLAB  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these 
%  objects  are  re-created.  This  may  cause  problems  with  some  callbacks. 

%  The  command  syntax  may  be  supported  in  the  future,  but  is  currently 
%  incomplete  and  subject  to  change. 

% 

%  To  re-open  this  system,  just  type  the  name  of  the  m-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associtated  MAT-file  must  be  on  your  path.\ 

%  Created  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 

load  time_freq_resp 

global  C  u  type_anal  Amat  Bmat  H_TF_RESP  H_STAB_OUT  T_STOP  T_INC 

type_anal= zeros (4,1) ; 

C=zeros (9,9); 
u=zeros (4,1)  ; 


H_TF_RESP  =  figure ( ' Color '  , [0.8  0.8  0.8],  ... 

'Colormap' ,mat0,  . .  . 

'Name' , 'Time  and  Frequency  Response' ,  ... 

'NumberTitle' , 'off'  ,  ... 

' PointerShapeCData ' , mat 1 ,  ... 

'Position' , [2  28  798  534],  ... 

'Tag', ' Figl ' ) ; 

b  =  uicontrol  ( '  Parent '  ,  H__TF_RESP,  .  .  . 

'Units ', 'points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 
'Position' , [63 .75  203.25  222  161.25],  ... 

' Style ' , ' frame ' ,  ... 

' Tag ' , ' Framel ' ) ; 

b  =  uicontrol ( ' Parent ' , H_TF_RESP,  ... 

'Units' , 'points' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Position' , [324  40.5  223.5  324],  ... 

' Style ' , ' frame ' ,  . . . 

'Tag' , 'Frame2 ' ) ; 

b  =  uicontrol (' Parent ', H_TF_RESP,  ... 

'Units' , 'points' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 
'Position' , [64.5  42  222.75  154.5],  ... 

' Style ' , ' frame ' ,  ... 

'Tag' , 'Frame3 ' ) ; 

b  =  uicontrol ( ' Parent ' , H„TF_RESP,  . . . 

'Units ', 'points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'FontSize' , 18,  . . . 

'Position' , [13.5  375.75  570.75  20.25],  ... 

'String' , 'TIME  and/or  FREQUENCY  RESPONSE  OF  COUPLED  SYSTEM', 
'Style' , 'text' ,  ... 
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'Tag' , ' StaticTextl ' ) ; 

H_LAT  =  uicontrol ( ' Parent ' , H_TF_RESP ,  ... 

'Units' , 'points ' ,  ... 

' BackgroundColor ', [0 . 752941  0.752941  0.752941], 
'Callback' , [ 'global  u; ' , . . . 

'if  get(gcbo,  ' 'Value' ') ==1 ,'.. . 

' u= [ 0 ;  0;  1;  0];'... 

' set (H_L0NG, ' 'Enable' ' , ' 'off' 

' set (H_COL, ' 'Enable' ' , ' 'off' 

' set (H_PED, ' 'Enable' ' , ' 'off' 

' else, ' , . . . 

' set ( H_LONG , ' 'Enable' ' , ' 'on' 

' set (H_COL, ' 'Enable' ' , ' 'on' '),',... 

' set (H_PED, ' 'Enable' ','' on' . 

'end, '],... 

'Position' , [94.5  309  87  21.75],  ... 

' String' , 'Lateral  Cyclic',  ... 

'Style' , 'checkbox' ,  ... 

' Tag ' , ' Checkboxl ' ) ; 

H_L0NG  =  uicontrol (' Parent ', H_TF_RESP,  ... 

'Units' , 'pointt' ,  ... 

'BackgroundColor ', [0 . 752941  0.752941  0.752941], 
'Callback' , [ 'global  u; ' , . . . 

'if  get(gcbo,  ' 'Value' ') ==1, '.. . 

' u= [ 1 ;  0;  0;  0];'... 

' set ( H_LAT , ' 'Enable' ' , ' 'off' '),',... 

' set ( H_COL , ' 'Enable' ' , ' 'off' '),',... 

' set ( H_PED , ' 'Enable' ' , ' 'off' '),',... 

' else, ' , . . . 

' set (H_LAT, ' 'Enable' ' , ' 'on' '),',... 

'set  (H_COL,  '  'Enable'  ' ,  "on"  )  ,  ' _ 

' set ( H_PED , ' 'Enable' ' , ' 'on' '),',... 

'end, '],... 

'Position' , [94.5  278.25  87  21.75],  ... 

'String' , 'Longitudinal  Cyclic' ,  ... 

' Style' ,' checkbox' ,  ... 

' Tag ' , ' Checkboxl ' ) ; 

H_COL  =  uicontrol (' Parent' ,H_TF_RESP,  ... 

'Units' , 'points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941], 
' Callback' ,[' global  u; ' , . . . 

'if  get(gcbo,  '  'Value"  )==1,  '..  . 

' u= [ 0 ;  1;  0;  0];'... 

' set (H_LAT, ' 'Enable' ' , ' 'off"  ),',... 

' set (H_LONG, ' 'Enable' ' , ' 'off' 

' set (H_PED, ' 'Enable' ' , ' 'off' 

' else, ' , . . . 

'  set  (H_LAT,  '  'Enable'  '  ,  "  on"  ),',..  . 

'  set  ( H_LONG ,  '  '  Enable  ",  "on"  ),',..  . 

'  set  (H_PED,  '  'Enable'  '  ,  " on"  ),',..  . 

’ end , ' ] f 

' Position' , [93.75  247.5  87  21.75],  ... 

'String' , 'Collective' ,  ... 

'Style' , 'checkbox' ,  ... 

' Tag ' , ' Checkboxl ' ) ; 

H_PED  -  uicontrol ( ' Parent' ,H_TF_RESP,  . . . 

'Units ' , 'points ' ,  ... 
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'BackgroundColor' , [0.752941  0.752941  0.752941] 
'Callback' , [ 'global  u; ' , . . . 

'if  get (gcbo,  ' 'Value' ') ==1, '.. . 

' u= [ 0 ;  0;  0;  1];'... 

' set  (H_LAT,  "Enable'  '  ,  '  'off" 

' set (H_COL, ' 'Enable' ' , ' 'off' 

' set (H_LONG, ' 'Enable' ' , ' 'off' 

'else, ' ,  .  .  . 

'  set  ( H_L AT ,  '  '  Enable "  ,  "  on"  . 

' set  (H_C0L,  '  'Enable' ',  "on"  . 

'  set  (H_LONG,  '  '  Enable  on"  . 

'  0nc3. ,  '  ]  t 

'  Position' ,  [94.5  214.5  87  21.75],  ... 

' String ' , 9  Pedal 9  ,  ... 

'Style' , 'checkbox' ,  ... 

' Tag ' , ' Checkboxl ' ) ; 

b  =  uicontrol ( 'Parent' , H_TF„RESP,  . . . 

' Units ' , ' points ' ,  ... 

'BackgroundColor ',[0.752941  0.752941  0.752941] 
' FontSize ' , 14 ,  ... 

'Position' , [94.5  174  180  18.75],  ... 

'String' , 'Type  of  Analysis',  ... 

'Style' , ' text' ,  ... 

' Tag ' , ' Stat icText 2 ' ) ;  * 
b  =  uicontrol ( 'Parent' , H_TF_RESP,  . . . 

' Units ' , ' points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941] 
'Callback' , [ 'global  type_anal  ; ' . . . 

'if  get(gcbo,  ' 'Value' ') ==1, '.. . 

'  type__anal  ( 1 )  =1 ;  '  .  .  . 

'elseif  get  (gcbo,  ' 'Value' ') ==0 . 

' type_anal ( 1 ) =0 
' end, '],... 

'Position' , [94.5  141.75  180  21.75],  ... 

'String' , 'Time  response  to  unit  step',  ... 

' Style ' , ' checkbox ' ,  ... 

' Tag ' , ' Checkboxl ' ) ; 
b  =  uicontrol ( ' Parent' ,H_TF_RESP,  . . . 

'Units ', 'points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941] 
'Callback' , [ 'global  type_anal  ; ' . . . 

'if  get (gcbo,  ' 'Value' ') ==1 . 

' type_anal ( 2 ) =1 ; ' . . . 

'elseif  get  (gcbo,  ' 'Value '') ==0 . 

' type_anal (2 ) =0 ; ' , . . . 

' end ,'],... 

'Position' , [94.5  112.5  179.25  21.75],  ... 

'String' , 'Time  response  to  unit  impulse' ,  ... 

'Style' , 'checkbox' ,  ... 

' Tag ' , ' Checkboxl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_TF_RESP,  . . . 

'Units' , 'points' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941] 
'Callback' , [ 'global  type_anal  ; ' . . . 

'if  get (gcbo,  ' 'Value' ') ==1, '.. . 

' type_anal (3 ) =1 ; ' . . . 
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'elseif  get  (gcbo,  ' 'Value' ') ==0 ,',.. . 

' type_anal (3) =0 ; ' , .  .  . 

' end 

' Position' , [94.5  81.75  181.5  21.75],  ... 

'String' , 'Bode  plots' ,  ... 

'Style' , 'checkbox' ,  ... 

'Tag' , 'Checkboxl' ) ; 

b  =  ui  control  ( '  Parent '  ,  H_TF__RESP ,  ... 

'Units ' , 'points ' #  ... 

' BackgroundColor ', [0 .752941  0.752941  0.752941] 
'Callback' , [ 'global  type_anal  ; ' . . . 

'if  get (gcbo,  ' 'Value' ') ==1 . 

' type_anal ( 4 ) =1 ; ' . . . 

'elseif  get  (gcbo,  ' 'Value '') ==0 . 

' type_anal ( 4 ) =0 ; ' , . . . 

' end ,'],... 

' Position' ,[ 94 . 5  51.75  181.5  21.75],  ... 
'String' , 'Eigen  values' ,  ... 

'Style' , 'checkbox' ,  ... 

' Tag ' , ' Checkboxl ' ) ; 

b  =  uicontrol ( ' Parent ' , H_TF_RESP,  . . . 

'Units ' , 'points ' ,  ... 

' BackgroundColor ', [0 . 752941  0.752941  0.752941] 
'FontSize' ,14,  ... 

' Position' ,[ 94 . 5  340.5  180  18.75],  ... 

'String' , 'Input  Channel' ,  ... 

' Style' , ' text ' ,  ... 

' Tag ' , ' StaticText2 ' ) ; 
b  =  uicontrol (' Parent ' ,H_TF„RESP,  ... 

'Units' , 'points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941] 
'FontSize' ,14,  ... 

'Position' , [339.75  340.5  180  18.75],  ... 

'String' , 'Response' ,  ... 

'Style' , ' text' ,  . . . 

' Tag ' , ' Stat icText2 ' ) ; 

b  =  uicontrol ( ' Parent ' , H_TF_RESP,  . . . 

'Units' , 'points' ,  ... 

' BackgroundColor ',[ 0 . 752941  0.752941  0.752941] 
'Callback' , [ 'global  C  ; ' . . . 

'if  get (gcbo,  ' 'Value '') ==1 ,'.. . 

' C ( 1 , 1 ) =1 ; ' 

'elseif  get  (gcbo,  " Value ") ==0 . 

'  C  ( 1 , 1 ) =0 ;  ' - 

'end, '],... 

' Position' ,  [338 . 25  309.75  87  21.75],  ... 

' String' , 'u' ,  ... 

' Style ' , ' checkbox ' ,  ... 

' Tag ' , ' Checkboxl ' ) ; 

b  =  uicontrol  (' Parent ',  H_TF__RESP,  ... 

'Units ' , 'points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941] 
'Callback' , [ 'global  C  ; ' . . . 

'if  get (gcbo,  ' 'Value '') ==1 . 

' C ( 5 , 5 ) =1 ; ' . . . 
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'elseif  get  (gcbo,  ' 'Value' ') ==0 , . 

'  C  ( 5 , 5 )  =  0 ;  ' _ 

' end / , ]  /  •  .  . 

' Position' ,  [339  280.5  87  21.75],  ... 

'String' , #v# ,  ... 

'Style' , 'checkbox' ,  ... 

' Tag ' , ' Checkboxl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_TF_RESP,  . . . 

'Units' , 'points' ,  ... 

'Backgrounded or' , [0.752941  0.752941  0.752941], 
'Callback' ,  [ 'global  C  ;'... 

'if  get (gcbo,  ' 'Value' ' )==1, . 

' C (2 , 2 ) =1 ; '  .  .  . 

'elseif  get  (gcbo,  ' 'Value '') ==0 . 

'  C  ( 2 , 2 )  =  0  ;  '  ,  .  .  . 

' end ,'],... 

' Position' , [339  249  87  21.75],  ... 

'String' , 'w' ,  ... 

'Style' , 'checkbox' ,  ... 

' Tag ' , ' Checkboxl ' ) ; 

b  =  uicontrol ( 'Parent' ,H_TF_RESP,  ... 

'Units ' , 'points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941], 
'Callback' ,[' global  C  ;'... 

'if  get (gcbo,  ' 'Value '') ==1 . 

' C (4 , 4) =1 ;  '  .  .  . 

'elseif  get  (gcbo,  ' 'Value' ') ==0 ,',..  . 

'  C  ( 4 , 4 )  =  0 ;  '  ,  .  .  . 

' end ,'],... 

'Position' , [339  216.75  87  21.75],  ... 

'String' , 'Pitch' ,  ... 

' Style ' , ' checkbox ' ,  ... 

' Tag ' , ' Checkboxl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_TF_RESP,  . . . 

'Units' , 'points' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941], 
'Callback'-,  [  'global  C  ;  '  .  .  . 

'if  get (gcbo,  ' 'Value '') ==1 . 

' C (7 , 7 ) =1 ; ' . . . 

'elseif  get  (gcbo,  ' 'Value' ') ==0 ,',.. . 

'C(7,7)=0 
' end ,'],... 

'Position' , [339  186.75  87  21.75],  ... 

'String' , 'Roll' ,  ... 

' Style ' , ' checkbox ' ,  ... 

' Tag ' , ' Checkboxl ' ) ; 
b  =  uicontrol ( ' Parent ' , H_TF_RESP,  . . . 

' Units ' , ' points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941], 
'Callback' , [ 'global  C  ; ' . . . 

'if  get (gcbo,  ' 'Value' ') ==1 ,'.. . 

'C (9 , 9) =1; ' . . . 

'elseif  get  (gcbo,  ' 'Value' ') ==0 ,',.. . 

'C (9, 9) =0 ; ' ,  .  .  . 

' end ,'],... 

'Position' , [339  156.75  87  21.75],  ... 

'String' , 'Yaw' ,  ... 
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'Style7 , 'checkbox' ,  ... 

' Tag ' , ' Checkboxl ' ) ; 

b  =  uicontrol ( 'Parent' ,H_TF_RESP,  . . . 

'Units' , 'points' ,  ... 

' BackgroundColor ' , [0.752941  0.752941  0.752941],  ... 

' Callback' ,[' global  C  ;'... 

'if  get (gcbo,  ' 'Value' ') ==1 ,'.. . 

'0(3,3)=!;'... 

'elseif  get  (gcbo,  ' 'Value '') ==0 , . 

'  C  ( 3 , 3  )  =  0 ;  '  ,  .  .  . 

'end, '],... 

'Position' , [339  124.5  87  21.75],  ... 

' String' Pitch  Rate',  ... 

' Style ' , ' checkbox ' ,  ... 

' Tag ' , ' Checkboxl ' ) ; 

b  =  uicontrol  (' Parent ',  H__TF_RESP,  ... 

'Units' , 'points' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Callback' , [ 'global  C  ; ' . . . 

'if  get(gcbo,  ' 'Value' ') ==1 . 

'C (6, 6) =1 ; ' . . . 

'elseif  get  (gcbo,  ' 'Value' ') ==0, ',.. . 

' C ( 6 , 6 ) =0 ; ' - 

'end, '],... 

'Position' , [339  93.75  87  21.75],  ... 

' String' , 'Roll  Rate',  ... 

' Style' ,' checkbox' ,  ... 

' Tag ' , ' Checkboxl ' ) ; 

b  =  uicontrol ( 'Parent' ,HJTF_RESP,  ... 

'Units ' , 'points ' ,  ... 

'BackgroundColor' , [0.752941  0.752941  0.752941],  ... 

'Callback' , [ 'global  C  ; ' . . . 

'if  get (gcbo,  ' 'Value' ') ==1, '.. . 

' C ( 8 , 8 ) =1 ; ' . . . 

'elseif  get  (gcbo,  ' 'Value '') ==0 . 

' C ( 8 , 8 ) =0 ;  '  ,  .  .  . 

'end, '],... 

'Position' , [339  62.25  87  21.75],  ... 

' String' ,' Yaw  Rate',  ... 

' Style ' , ' checkbox ' ,  ... 

' Tag ' , ' Checkboxl ' ) ; 

b  =  uicontrol ( 'Parent' ,H_TF_RESP,  . . . 

'Units' , 'points' ,  ... 

'BackgroundColor' ,[111],  ... 

'Callback' , [ 'global  T_INC  ; ' . . . 

'T_INC=get (gcbo, ' 'String' ' ) ;T_INC=str2num(T_INC) ; ' ] 
'Position' , [443 .25  200.25  63  15] ,  ... 

'String' ,T_INC,  . . . 

' Style' , 'edit' ,  ... 

'Tag' , ' EditTextl ' ) ; 

b  =  uicontrol (' Parent ', H_TF_RESP,  ... 

'Units' , 'points' ,  ... 

'BackgroundColor' , [1  11],  ... 

'Callback' , ['global  T_STOP  ; ' . . . 

'T_STOP=get  (gcbo,  '  'String'  '  )  ; T__STOP=str2num (T_ST0P) 
'Position' , [443 .25  252  63  15],  ... 
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' String' ,T_STOP,  . . . 

' Style 7 , 7  edit 7 ,  ... 

'Tag7 , 'EditTextl7 ) ; 
b  =  uicontrol ( 7  Parent 7 , HJTF_RESP,  . . . 

'Units7 , 'points' ,  ... 

'BackgroundColor 7 ,  [0.752941  0.752941  0.752941],  ... 

'Position7 , [440.25  267.75  69  17.25],  ... 

'String7 , 'Stop  Time  (sec)',  ... 

'Style7 , 'text' ,  ... 

' Tag 7 , 7  StaticText3 ' ) ; 
b  =  uicontrol ( 7  Parent 7 , H_TF_RESP,  .  . . 

'Units  7 , 'points  7 ,  ... 

7 BackgroundColor 7 , [0.752941  0.752941  0.752941],  ... 

'Position7 , [438.75  215.25  69  17.25],  ... 

'String7 , 'Increment  (sec) ' ,  ... 

7  Style 7 , 7  text 7 ,  ... 

' Tag 7 , ' Stat icText3  7 ) ; 

b  =  uicontrol  ( 'Parent'  ,H__TF_RESP,  .  .  . 

'Units  7 , 'points ' ,  ... 

'Callback' , 'global  Amat  Bmat  C  u  T_STOP  T_INC 
type_anal;  time_freq_resp_JEcn  cont' ,  ... 

'FontSize' ,14,  ... 

'Position' , [311.25  5.25  105.75  27],  ... 

'String' , 'CONTINUE  »',  ... 

'Tag' , ' Pushbuttonl ' ) ; 
b  =  uicontrol ( 'Parent' ,H_TF_RESP,  . . . 

7  Units 7 , 'points 7 ,  ... 

'Callback' , 'global  Amat  Bmat  C  u  T_ST0P  T_INC 
type„anal; time_f req_resp_f cn  back7,  ... 

7  FontSize 7 , 14 ,  ... 

'Position7 , [177  5.25  105.75  27],  ... 

'String'  ,  '«  BACK'  ,  ... 

7  Tag7 , 7  Pushbuttonl 7 ) ; 


assignin( 'base' , ' H_LONG ' , H_LONG ) ; 
assignin( 'base' , ' H_LAT ' , H_L AT ) ; 
assignin( 'base' , 'H_COL7 , H_COL) ; 
assignin( 'base' , ' H_PED ' ,H_PED) ; 
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37.  time_freq_resp_fcn.m 

function  time_freq„resp_f cn (Action) 

%  Written  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 

global  Amat  Bmat  u  C  type_anal  time_vec  H_STBY_SCRN  H_TF_RESP  H_STAB_0UT 
T_INC  T_STOP 


if  i s empty (nar gin) 
return 

end 


switch  Action 
case  'cont' 

stby_scrn 
pause (1) 

if  type_anal (1) ==1 
step„plotter 

end 

if  type__anal  (2) -=1 
imp_pl otter 

end 

if  type_anal (3) ==1 
bode_plotter 

end 

if  type_anal (4) ==1 
eigen_plotter 

end 

close ( H_STBY_SCRN ) 

case  'back' 
stab_out_l 
close  (H__TF_RESP) 


end 
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38.  Trim.m 


%  Trim.m 

%  Trim  routine  for  collective/cyclic. 

%  JANRAD  98  VERSION  5.0 

%  Modified  for  JAJRAD  version  6.0  by  LT  David  A.  Heathorn 

global  RAD S P C_VAL  NL_TWIST_VAL  NEW_AUX_VAL  FIX_TPP_VAL  NEW_TPP 
lamdaT_trim 

if  -exist (' STAB_ON' ) 

if  get (H_AS, 'Value' ) ==1 
IT_PARAM=  7  AIRSPEED 7  ; 

IT„UNIT=  7  KTS 7 ; 
elseif  get (H_AL, 'Value7 )==1 
IT_PARAM= 7  ALTITUDE 7  ; 

IT_UNIT=  7  FT 7  ; 

elseif  get (H__GW, 'Value7 ) ==1 
IT_PARAM=  7 GROSS  WEIGHT7; 

IT_JJNIT=  7  LBS 7  ; 
elseif  get  (H_BT,  7  Value 7 )  “1 
IT_PARAM= 7  BLADE  TWIST 7 ; 

IT_UNIT=  7  DEG 7  ; 

elseif  get(H__BTR,  'Value7  )==1 

IT_PARAM= 7  BLADE  TAPER  RATIO  7 ; 

IT_UNIT=  7  7 ; 

elseif  get (H_SOT, 'Value7 )==1 
IT_PARAM= 7  START  OF  TAPER7; 

IT_UNIT=  7  FT 7 ; 

elseif  get (H_WSA, 7 Value7 ) ==1 
IT_PARAM=  7 WING  SPAN  AREA7; 

IT_UNIT=  7  FT ^2  7 ; 
elseif  get (H_RBR, 'Value7 )==1 

IT_PARAM=  7 ROTOR  BLADE  RADIUS'; 

IT_UNIT=  7  FT 7 ; 

elseif  get (H_RBS, 'Value7 )==1 

IT_PARAM= 7 ROTOR  BLADE  SPEED7; 

IT_UNIT~ 7  RAD/ SEC 7 ; 

end 

end 

%  Following  was  added  to  adjust  flight  conditions  for  UH-60A  runs 
%if  Vinf/1. 68781  <  50 
%  Afh=35 ; 

%  PA=2500; 

%  temp=68; 

%  GW=17377 ; 

%  CLhoriz=0; 

%elseif  Vinf/1. 68781  <=  90 
%  Af h=32 ; 

%  PA=2500 ; 

%  temp- 6  8 ; 

%  GW=17377; 

%  CLhoriz=-.l; 

%elseif  Vinf/1. 68781  <=  140 
%  Afh=3  0 ; 
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%  PA=2500 ; 

%  temp- 6 8  ? 

%  GW=173  00 ; 

%  CLhoriz  =  -0 . 3 ; 

%else 

%  Afh=2  8 ; 

%  PA=2500 ; 

%  temp=68; 

%  GW=17  000 ; 

%  CLhoriz=-0 . 5 ; 

%end 

set (H_STATUS , 'String' , 'EXECUTING  ROTOR  TRIM  ROUTINE') 

set (H_STATUS1, 'String' , [ 'RUN  ELAPSED  TIME  IS  '  num2str ( f ix ( toe ) )  ' 

SECONDS ' ] ) 

if  -exist  (  '  STAB__ON' ) 

if  get (H_NI, 'Value' ) ==1 
set (H_STATUS3  , 'String' ,  "  ) 
else 

set (HJSTATUS3, 'String' ,  [ 'ITERATION  PARAMETER:  '  IT^PARAM  '  =  ' 
num2str (itervar)  num2str { IT_UNIT) ] ) 
end 

end 

pause (3 ) 

%  ***  calculation  of  required  parameters  *** 


rho=..  002377 *  ( -  .  000031*PA+  ( -  .  002*temp+l .  118 )  )  ; 


%  ***  first  guess  at  rotor  profile  drag  (  H  force)  *** 

if  Vinf  <  16.9, 

Drotor=0 ; 
else 

Drotor=Vinf * (rho/ . 002377 ) ; 
end 

q=0 . 5*rho*Vinf  A2  ; 

Adisk=pi*RA2 ; 

Vtip=omega*R; 
temp_rank=temp+459 . 67 ; 
spd_snd=49 . l^sqrt { temp_rank) ; 

%  Section  added  to  establish  maximum  tip  speed 
%if  (Vtip+Vinf ) /spd„snd>0 . 87 
%  spd_max=0 . 87*spd_snd 
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%  Vtip=spd_jnax-Vinf 
%  omega=Vtip/R 
%end 

%  Section  added  to  set  wing  lift  at  a  certain  value  and  determine 
%  the  required  wing  CL  %%  This  is  for  compound  helos%% 

%if  Vinf>=160*l. 68781 
%  perclift=  0.7; 

%  Lwing=GW*perclif t 

%  CLwing=  Lwing/ (q* Swing) 

%if  Vinf>=110*l. 68781 

%  perclift=.255+. 00293* (Vinf- (110*1.68781) ) 

%  Lwing=GW*perclif t 

%  CLwing=  Lwing/ (q* Swing) 

%else 

%  Lwing=q*CLwing*Swing; 

%end 

Lwing=q*CLwing*  Swing ; 

Dfuse=q*Afh; 

CDwing=CDowing+ (CLwing^2/ (ewing*pi* (bwing^2 /Swing) ) ) ; 

CDhoriz=CDohoriz+ (CLhoriz^2/ ( . 8*pi* (bhoriz^2/Shoriz)  )  )  ; 

CDvert=CDovert+  (CLvert/s2/  ( .  8*pi*  (bvert^2/Svert)  )  )  ; 

Dwing=q*CDwing*  Swing ; 

Dhoriz=q*CDhoriz*Shoriz ; 

Dvert=q*CDvert*Svert ; 

Dftotal= (Dfuse+Dwing+Dhoriz+Dvert ) ; 

%  This  section  is  for  compound  helos,  adjustment  of  aux  thrust 
efficiency  with  airspeed 
if  Vinf /I . 68781<=70 
AUXEFF=. 650; 

elseif  Vinf /I . 68781<=100 

AUXEFF= .65+. 0025* ( (Vinf /I . 68781) -70) ; 
elseif  Vinf /I . 68781<=160 

AUXEFF=. 725+. 0025* ( (Vinf /I . 68781) -100) ; 
elseif  Vinf /I . 68781<=210 

AUXEFF=.85+. 00007* ( (Vinf /I . 68781) -160) ; 
else 

AUXEFF= . 847 ; 
end 

%  This  section  provided  aux  thrust  schedule  for  compound  helo 
switch  NEW_AUX_VAL 
case  0 

Dftotal= (Dfuse+Dwing+Dhoriz+Dvert) -Taux; 
case  1 

if  PA==8000 

Taux=16*Vinf /l . 68781;  %  linear  increase  in  aux  thrust  up  to  210 

knots 
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S_PERF_INPUT . Taux=Taux; 

S_USER_INPUT . Taux=Taux ; 
elseif  PA==5000 

Taux=17.024*Vinf/l. 68781;  %  linear  increase  in  aux  thrust  up  to 

210  knots 

S_PERF_INPUT . Taux=Taux ; 

S_USER_INPUT . Taux=Taux ; 
elseif  PA==0 

Taux=Df total ; 

S_PERF_INPUT . Taux=Taux ? 

S_USER_INPUT . Taux=Taux; 

end 

end 

Lhoriz=q*CLhoriz*Shoriz ; 

Lvert=q*CLvert *Svert ; 

Lf total=Lwing+Lhoriz ; 
if  FIX_TPP_VAL==1 

alphaT=NEW__TPP ;  %set  tip  path  angle 

else 

alphaT=atan2 ( (Df total+Drotor) , (GW-Lftotal) ) ; 

end 

mu=Vinf *cos (alphaT) /Vtip; 


%  ***  thrust  calculation  *** 

if  Vinf  <  16.9, 

T= ( 1+ ( 0 . 4*Afv/Adisk) ) *GW; 
else 

T= (GW-Lftotal) /cos (alphaT) ; 

end 

CT=T/ (Adisk*rho*Vtip^2 ) ; 

%Values  to  check  output 

%  ***  setup  blade  radius  elements,  azimuth  elements, 

%  induced  velocity  distributions,  and  determination 

%  of  coning  angle  and  tip  loss  parameter  *** 

B=l- (sqrt (2*CT) /b) ; 

Ref f =B*R; 

Rbar=Reff-e; 

if  RADSPC_VAL==1 

NEW_rl=[NEW_r,  Reff /R] ; 
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n=length (NEW_rl) ; 
dr=diff (NEW_rl) *R; 
r= ( NEW__r  1 ( 1 : n- 1 ) *R) +dr/2; 
else 

dr= (Ref f -grip) /nbe; 
r=grip:dr :Ref f-dr; , r=r+dr/2; 

end 

if  NL_TWI S T_VAL = = 1 

NL_TWIST=NL_TWIST/57 . 3 ; 
n= length (NL_TWIST) ; 
if  RADSPC_VAL==1 

y= ( (Ref f /R) -NEW_r (n) ) * ( (NL_TWIST (n) -NL_TWIST (n-1 ) ) / (NEW_r (n) - 
NEW_r (n-1) ) ) ; 
else 

y= ( (Reff/R) -r  (n) ) * ( (NL_TWIST(n) -NL_TWIST (n-1 ) ) / (r (n) -  r (n-1) ) ) ; 
end 

NL_TWIST1=  [NL_TWIST  (NL_TWIST  (n)  +y)  ]  ; 
m= length (NL_TWIST1 ) ; 
dTW=dif  f  (NL__TWIST1 )  ; 
twi s t  =  ( NL_TWI ST1  (1  :m-l)  )  +dTW/ 2  ; 
betat=twist ; 
else 

betat=twist* (0.7- (r/R) ) ; 
end 

rTl=0.7;,%  ***  first  guess  at  rT  *** 

RbarT=rTl *Rbar ; 
mblade=wblade/32 . 17 ; 

betao=asin ( (T/b*RbarT- ( .5* (R-e) +e) *wblade) / ( ( . 5* (R- 
e) +e) ^2*omegaA2*mblade) ) ; 

psi=0 : 360/naz : 360-360/naz; , psi=psi ' /57 . 3 ; 


%%  set  up  vector  of  blade  element  chords  and  then  varies  them  as 
%%  requested  with  the  blade  taper  and  blade  taper  start  position 
%%  rchord=root  chord 

%%  cblade=vector  of  blade  element  chord  lengths 
%%  tr=taper  ratio  (tip/root) 

%%  trst=taper  ratio  start  position  (r/R) 

cblade=rchord*ones ( size (r ) ) ;  %  gives  all  elements  same  chord  length 

initially 
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if  tr=-0 
tr=l ; 

end 


%  prevents  division  by  zero  later  in  code 
%  in  case  0  is  enter  for  taper  ratio  instead 
%  of  1  for  no  taper 


if  trst==0 

slopes (rchord-rchord*tr )/ (Ref f-grip) ;  %  Modifies  each  element 


cblade=cblade-slope* (r-grip) 
tchord=cblade (nbe) ; 
mchord=sum(cblade) /nbe; 


else 


%  chord  length  wrt  input 
%  taper  ratio  which  has  been 
%  been  converted  into  a  slope 
%  top  portion  takes  into 
%  account  the  possibility  that 


slope= (rchord-rchord*tr ) / (R* (1-trst) ) ; 
really  at 


%  a  0  start  position  is 


z=f ix (nbe*trst ) ; 
portion 

if  z<=l 

z=l; 


%  the  start  of  the  aero 


%  prevents  beginning  index  fm  being  zero 


end 

cblade ( z :nbe) =cblade ( z :nbe) - (r ( z :nbe) -r ( z) ) * slope; 
tchord=cblade (nbe) ; 
mchord= sum (cblade) /nbe; 


end 


%  ***  induced  velocity  determination  *** 

if  Vinf  <  16.9, 

A=4*pi ; 

Bv= (b/2) *omega*a. *cblade; 
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Tv=0; 


delT=T-Tv; 

while  abs(delT)  >  .  01*T  %  Prouty  Eqns  for  Hover 

thetav=betat+thetao ; 

C= ( — b/ 2 ) . *cblade*omega^2 . *r*a. *thetav; 

vi= (-Bv+sqrt (Bv. A2- (4*A*C) ) ) / (2*A) ; 

dTv= (b/2) *rho* ( (omega*r) . A2) *a. * (thetav- 
(vi . / (omega*r) ) ) . *cblade. *dr; 

Tv=sum(dTv) ; 

delT=T-Tv; 

if  delT  <  0, 

thetao=thetao-0 . 5*thetao*abs (delT/T) ; 
else 

thetao=thetao+0 . 5*thetao*abs (delT/T) ; 
end 

end 

else  %  Wheatley  Eqn  for  Fwd  fit 

lamdaT=0 ; 
lamda=l ; 

while  abs (lamdaT-lamda) >le-4 
1  amda = 1  amdaT  ; 

lamdaT=mu* sin (alphaT)  +0 . 5*CT/sqrt  ( lamdaTA2+muA2 )  ; 

end 

vi=lamdaT*Vtip-Vinf  *  sin  (alphaT)  ; 
vi=vi*ones (size (r) )  ; 
end 


%  ***  first  guess  at  theta  *** 
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thetalc=0 .035* ( ( 0 . 0006e-3 *Vinf "2+0 . 244e-3 *Vinf ) /0 . 105) ; 
thetals=-0 . 087* ( ( 0 . 0006e-3 *Vinf "2+0 . 244e-3 *Vinf ) /0.105) ; 
theta=thetao+thetalc . *cos (psi) +thetals . *sin(psi) ; 


%  ***  rotor  trimming  routine  *** 


set (H_STATUS, 'String' , 'TRIMMING  COLLECTIVE' ) 

set (H_STATUS1, 'String' , ['RUN  ELAPSED  TIME  IS  '  num2str ( f ix ( toe ) )  ' 

SECONDS ' ] ) 
pause (3 ) 

set (H_STATUS2, 'String' ,  "  ) 


k=l; 

error0= (T* . 02) +1; 


while  abs(errorO)  >  T* .  02 

set (H_STATUS2 , 'String' , ['COLLECTIVE  TRIM  ROUTINE  IS  ON  ITERATION  # 
' , num2str (k) ] ) 

set (H_STATUS1 , ' String '  ,  [  ' RUN  ELAPSED  TIME  IS  '  num2str ( f ix ( toe ) )  ' 

SECONDS ' ] ) 

Tpsi=zeros (size (psi) ) ; 

Npsi=zeros (size (psi) ) ; 
thrcalc 

if  k>l,  %  Eccles  change:  These  three  lines  were  added. 

errorl ; 
end 

error0=T~ (mean(Tpsi) *b) ; 
if  errorO  <  -T*.02, 

thetao=thetao-0 . 35*thetao*abs ( 1 . 5*errorO/T) * (1-mu) ; 
elseif  errorO  >  T*.02, 

thetao=thetao+0 . 35*thetao*abs (1 . 5*errorO/T) * (1-mu) ; 
end 
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theta=thetao+thetalc . *cos (psi) +thetals . *sin(psi) ? 
if  k  >  1, 

if  abs ( error 0)  >  abs(errorl), 
clc 

trim__warning 

set (H_GO, 7  Enable' , 'off') ; 
set (H_RES , 'Enable' , 'off ' ) ; 
set (H_RUPT, 'Enable' , 'off' ) ; 
set (H_BK, 'Enable' , 'on' ) ; 
error ('***  Did  Not  Trim  ***') 
end 


end 

errorl=errorO ; 
k=k+l; 
end 


set (H_STATUS , ' String' , ' TRIMMING  CYCLIC ' ) 

set (H_STATUS1 , 'String' , ['RUN  ELAPSED  TIME  IS  '  num2str ( f ix ( toe) )  ' 

SECONDS ' ]  ) 

set (H_STATUS2 , 'String' ,  "  ) 
pause {3 ) 


t0=clock; 

k=l; 

error0= ( ( (T/b) *rTl* (R-grip) ) * . 04) +1; 

while  errorO  >  ( (T/b) *rTl* (R-grip) ) * . 04 

set (H_STATUS2/ 'String' , [ 'CYCLIC  TRIM  ROUTINE  IS  ON  ITERATION  # 

'  ,num2str  (k)  ]  ) 

set (H_STATUS1, 'String' , ['RUN  ELAPSED  TIME  IS  '  num2str ( f ix ( toe) )  ' 

SECONDS ' ] ) 

time=etime (clock, tO) ; 
if  time  >  15, 

set (H_STATUS, ' String' , ' STILL  TRIMMING  . . . ' ) 

set (HJ3TATUS1, 'String' , [ 'RUN  ELAPSED  TIME  IS  '  num2str (fix(toc) )  ' 

SECONDS ' ] ) 

set (H_STATUS2, 'String' , [ 'CYCLIC  TRIM  ROUTINE  IS  ON  ITERATION 
#  ' , num2str (k) ] ) 
pause (2) 
t0=clock; 

end 
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Mpsi (  :  ,  k) = zeros (size (psi) ) ; 
tmcalc 

theta= [theta  theta (  :  ,  k) ]  ; 

Mpsi= [Mpsi  Mpsi(:,k)]; 

%  ***  calculation  of  initial  dthetadM  *** 

if  k  <  2 , 

theta ( : , k+1) =theta ( : , k) +0 . 25/57 . 3 ; 

Mpsi ( : , k+1) =zeros (size (psi) ) ; 

k=k+l; 

tmcalc 

k=k-l ; 

dthetadM= (theta ( : , k+1) -theta ( : , k) ) . / (Mpsi ( : , k+1 ) -Mpsi ( : , k) ) ; 
end 

%  ***  calculation  of  M  first  harmonic  parameters  *** 

Mlc=2*sum(Mpsi ( : #k) . *cos (psi) ) /naz; 

Mls=2  *sum (Mpsi ( : , k)  . *sin (psi ) ) /naz ; 

%  ***  removal  of  first  harmonic  terms  from  Mpsi  *** 

Mpsi ( : , k+1) =Mpsi ( : , k) -Mlc . *cos (psi) -Mis . *sin (psi) ; 
delM=Mpsi ( : , k+1) -Mpsi (:,k); 
errorO=max (delM) -min (delM) ; 

if  k  >  1, 

if  errorO  >  errorl, 
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clc 

trim_warning 

set (H_GO, 'Enable' , 'off')  ; 
set (H__RES , 'Enable' , 'off') ; 
set (H_RUPT, 'Enable' , 'off ' ) ; 
set (H__BK, 'Enable' # 'on' ) ; 
error!'***  END  OF  PROGRAM  ***') 

end 

end 

errorl=errorO ; 

***  calculation  of  new  theta  *** 


delM=0 . 5* (1-mu) *delM; 

theta ( : , k+1) =theta ( : , k) + (dthetadM. *delM) ; 

if  errorO  <=  ( (T/b) *rTl* (R~grip) ) * . 04 , 
thetalc=2*sum( theta ( : ,k) .*cos (psi) ) / naz; 
thetals=2* sum (theta ( : , k) . * sin (psi) ) /naz; 
else 

thetalc=2*sum( theta ( : , k+1) . *cos (psi) ) / naz; 
thetals=2 * sum ( theta ( : ,k+l) sin (psi) ) /naz; 
end 

theta ( : , k+1) =thetao+thetalc . *cos (psi) +thetals . 

***  calculation  of  new  dthetadM  *** 

theta= [theta  theta (:, k+1) ] ; 

Mpsi=[Mpsi  Mpsi { : ,k+l) ] ; 

theta ( : , k+2 ) = theta (:, k) +0.25/57. 3; 

Mpsi ( : , k+2 ) =zeros (size (Mpsi ( : , k+1) ) ) ; 
k=k+2 ; 


tmcalc 


k=k-2 ; 


dthetadM= ( theta ( : , k+2 ) -theta (  :  ,  k) )  .  / (Mpsi ( : , k+2 ) -Mpsi ( :  ,  k)  )  ; 
k=k+l; 


end 

set (H_STATUS, 'String' , 'ADJUSTING  COLLECTIVE' ) 

set (H_STATUS1 , ' String' , [ 'RUN  ELAPSED  TIME  IS  '  num2str ( f ix ( toe) )  ' 

SECONDS ' ] ) 

set (H_STATUS2 , ' String' ,  "  ) 
pause (3 ) 


theta=theta ( : , k) ; 
k=l; 

errorO= (T* . 01) +1; 


while  abs(errorO)  >  T*.01 

Tpsi=zeros (size (psi) ) ; 

Npsi=zeros (size (psi) ) ; 
thrcalc 

errorO=T- (mean(Tpsi) *b) ; 
if  errorO  <  -T*.01, 

thetao=thetao-0 . 25*thetao*abs ( 1 . 25*errorO/T) * ( 1-mu) ; 
elseif  errorO  >  T*.01, 

thetao=thetao+0 . 25*thetao*abs (1 . 25*errorO/T) * (1-mu) ; 
end 

theta=thetao+thetalc . *cos (psi) +thetals . *sin (psi) ; 
if  k  >  1, 

if  abs (errorO)  >  abs(errorl), 
clc 

trim_warning 

set (H_GO, 'Enable' , 'off ' ) ; 
set (H_RES, 'Enable' f 'off ' ) ; 
set ( H_RUPT , 'Enable' , 'off ' ) ; 
set ( H_BK , 'Enable' , 'on' ) ; 
error ('***  END  OF  PROGRAM  ***') 

end 

end 
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errorl=errorO ; 


k=k+l ; 
end 


%  ***  calculating  drag  moments  *** 
set (H_STATUS2 , 'String' , 'CALCULATING  DRAG  MOMENT' ) 

set (H_STATUS1, 'String' , [ 'RUN  ELAPSED  TIME  IS  '  num2str (fix(toc) )  ' 

SECONDS ' ] ) 
pause (2 ) 

DMpsi=zeros (size (psi) ) ; 
dmcalc 

%  ***  calculating  rotor  H  force  *** 

set (H_STATUS2 , ' String' , ' CALCULATING  ROTOR  DRAG' ) 

set (H_STATUS1 ,' String' , ['RUN  ELAPSED  TIME  IS  '  num2str ( f ix ( toe) )  ' 

SECONDS ' ] ) 
pause (2 ) 

if  Vinf  <  16.9, 

Hrotor=0; 

dT= [ dT  ddT] ; 
dN=  [dN  ddN]  ; 

dD= [dD  ddD] ; 

else 

dT= [dT  ddT]; 
dN=  [dN  ddN]  ; 
dD= [dD  ddD] ; 

for  i=l: length (r)+l, 

Hlc ( i ) =2  *  sum ( dT ( : , i) .*cos(psi) ) /naz; 

His (i) =2*sum(dD ( : , i) . *sin(psi) ) / naz; 

end 

Hrotor=  (  (  (b*cos  (alphaT)  12)  *  (sum(Hls)  - 
sin (betao) * sum (Hlc) ) ) +Drotor) / 2 ; 

end 


%  ***  calculating  new  rT  *** 
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rT2= ( ( (mean (Mpsi ( : , length (Mpsi (!,:))-!)) /mean (Tpsi) ) /R) +rTl) /2 ; 


%  ***  check  rotor  drag  and  rT,  retrim  rotor  if  required  *** 


while  abs (Drotor-Hrotor)  >  0.2*Hrotor  |  abs(rTl-rT2)  >  0.015*rTl 


if  abs (Drotor-Hrotor)  >  0.2*Hrotor, 

set ( H_STATUS , 'String' , 'ADJUSTING  ROTOR  DRAG' ) 

set (H_STATUS1 , 'String', ['RUN  ELAPSED  TIME  IS  '  num2str (fix(toc) )  ' 
SECONDS ' ] ) 

set (H_STATUS2, 'String' ,[ 'CURRENT  ROTOR  DRAG  =  '  num2str (Drotor)  ' 

LB']) 

pause (3) 

end 

Drotor=Hrotor ; 

if  abs (rTl-rT2 )  >  0.015*rTl, 

set (H_STATUS, 'String' , 'ADJUSTING  MEAN  THRUST  LOCATION') 
set (H_STATUS1, 'String' ,[ 'RUN  ELAPSED  TIME  IS  '  num2str (fix (toe) )  ' 

SECONDS' ] ) 

set (H_STATUS2, 'String' , ['NEW  MEAN  THRUST  LOCATION  IS  '  num2str(rT2) 
'  r/R']) 

pause  (2 ) 

end 

set (H_STATUS , 'String' , 'RETRIMMING  ROTOR' ) 

set (H_STATUS1, 'String' ,[ 'RUN  ELAPSED  TIME  IS  '  num2str ( f ix ( toe ) )  ' 

SECONDS ' ] ) 
pause (3 ) 

set (H_STATUS2/ 'String' ,  '  ' ) 
dT=dT ( : , l:nbe) ; 
dN=dN ( : , 1 :nbe) ; 

dD=dD( : , 1 :nbe) ; 


%  ***  recalculating  parameters  *** 


if  FIX_TPP_VAL== 1 

alphaT=NEW_TPP;  %set  tip  path  angle 

else 

alphaT=atan2 ( (Df total+Drotor) , (GW-Lf total) ) ; 
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end 


%alphaT80=0 ; 

%if  SJJSER_INPUT.Vinf<80 

%  alphaT=atan2 ( (Df total+Drotor ) , (GW-Lf total) ) ; 

%elseif  S_USER__INPUT .  Vinf ==80 

%  alphaT=atan2 ( (Df total+Drotor) , (GW-Lf total) ) ; 

%  alphaT8  0 =alphaT ; 

%elseif  S_USER_INPUT. Vinf >=140 
%  alphaT=0; 

%else 

%  alphaT= ( 1- ( ( (Vinf-135 . 02479) /100) *. 98747) )*alphaT80; 
%end 

mu=Vinf *cos (alphaT) /Vtip; 

if  Vinf  >=16.9,  %  Wheatley  Eqn  for  Fwd  fit 

T= (GW-Lf total) /cos (alphaT) ; 

CT=T/ ( Adisk*rho*VtipA2 )  ; 

laindaT=0  ; 

lamda=l; 

while  abs  (lamdaT-lamda)  >le-4 
lamda=lamdaT; 

lamdaT=mu* sin (alphaT) +0 . 5*CT/sqrt (lamdaTA2+muA2) ; 
1  amdaT_t r im= 1 amdaT ; 


end 

vi=lamdaT*Vtip-Vinf*sin (alphaT) ; 

vi=vi*ones (size (r) )  ; 
end 


B=l- (sqrt (2*CT) /b) ; 
Ref f =B*R; 

Rbar=Ref f-e; 


if  RADSPC_VAL==1 

NEW_rl=[NEW_r,  Reff/R] ; 
n=length (NEW_rl ) ; 
dr=dif  f  (NEW__rl)  *R; 
r=  (NEW_rl  ( 1 : n-1 )  *R)+dr/2; 
else 

dr= (Reff-grip) /nbe; 

r=grip : dr :Ref f-dr ; , r=r+dr/2 ; 

end 
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RbarT=rT2 *Rbar ; 

betao=asin ( (T/b*RbarT- { . 5* (R-e) +e) *wblade) / ( ( . 5* (R- 
e)  +e)  /'2*omega^2*mblade)  )  ; 


%  ***  trimming  collective  *** 


tO=clock; 
k=l ; 

errorO= (T* . 02) +1; 


while  abs(errorO)  >  T*.02 

set (H_STATUS2, 'String' , ['ROTOR  TRIM  ROUTINE  IS  ON  ITERATION  # 

' , num2str (k) ] ) 

set (H_STATUS1/ 'String' , [ 'RUN  ELAPSED  TIME  IS  '  num2str ( f ix ( toe) )  ' 

SECONDS' ] ) 

Tpsi=zeros (size (psi) ) ; 

Npsi=zeros (size (psi) ) ; 
thrcalc 

errorO=T- (mean(Tpsi) *b) ; 
if  errorO  <  -T*.02, 

thetao=thetao-0 . 35*thetao*abs (1 . 5*errorO/T) * (1-mu) ; 
elseif  errorO  >  T*.02, 

thetao=thetao+0 . 35*thetao*abs (1 . 5*errorO/T) * (1-mu) ; 
end 

theta=thetao+thetalc . *cos (psi) +thetals . *sin (psi) ; 
if  k  >  1, 

if  abs (errorO)  >  abs(errorl), 
clc 

trirnjwarning 

set (H_GO, 'Enable' , 'off' ) ; 
set (H_RES , 'Enable' , 'off ' ) ; 
set (H_RUPT, 'Enable' , 'off ' ) ; 
set (H_BK,  'Enable'  /  on'); 
error('***  END  OF  PROGRAM  ***') 
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end 


end 

errorl=errorO ; 
k=k+l ; 

end 

%  ***  trimming  cyclic  *** 


k=l; 

errorO= ( { (T/b) *rT2* (R-grip) )*.04)+l; 


while  errorO  >  ( (T/b) *rT2* (R-grip) ) * . 04 

set (H_STATUS2 , 'String' , ['CYCLIC  TRIM  ROUTINE  IS  ON  ITERATION  # 

'  ,num2str  (k)  ] ) 

set ( H_STATUS1 , ' String '  ,  [ ' RUN  ELAPSED  TIME  IS  '  num2str ( f ix ( toe) )  ' 

SECONDS ' ] ) 

time=etime (clock, tO )  ; 

if  time  >  15, 

set (H_STATUS , # String' , ' STILL  TRIMMING  . . . ' ) 

set (H_STATUS1, 'String' ,[ 'RUN  ELAPSED  TIME  IS  '  num2str ( f ix ( toe) ) 
'  SECONDS ' ] ) 

set (HJ3TATUS2 , ' String ' , [ ' CYCLIC  TRIM  ROUTINE  IS  ON  ITERATION  # 

'  ,num2str  (k)  ]  ) 

pause (3 ) 

t0=clock; 


end 


Mpsi ( : , k) = zeros ( size (psi) ) ; 
tmcalc 

theta= [theta  theta(:,k)]; 

Mpsi= [Mpsi  Mpsi ( : , k) ] ; 

%  ***  calculation  of  initial  dthetadM  *** 


if  k  <  2, 
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theta  ( :  ,  k+1)  =  theta  (:,  k)  +  0.25/57. 3; 

Mpsi ( : , k+1) =zeros (size (psi) ) ; 
k=k+l ? 
tmcalc 
k=k-l ; 

dthetadM= (theta ( : ,k+l) -theta ( : ,k) ) . / (Mpsi ( : ,k+l) -Mpsi ( : ,k) ) ; 
end 


%  ***  calculation  of  M  first  harmonic  parameters  *** 


Mlc=2*sum(Mpsi  (*:  ,  k)  .  *cos  (psi)  )  / naz; 
Mls=2*sum(Mpsi ( : ,k) . *sin(psi) ) /naz; 


%  ***  removal  of  first  harmonic  terms  from  Mpsi  *** 


Mpsi ( : , k+1) =Mpsi ( : , k) -Mlc . *cos (psi) -Mis . *sin (psi) ; 
delM=Mpsi ( : , k+1 ) -Mpsi (:,k); 
error 0=max (delM) -min (delM) ; 


if  k  >  1, 

if  errorO  >  errorl, 
clc 

t  r  im__wa  r  n  i  ng 

set (H_GO , 9  Enable ' , 'off ' ) ; 
set (H_RES , ' Enable ' , 'off' ) ; 
set ( H_RUPT , ' Enable ' , 'off ' ) ; 
set  (H__BK,  ' Enable '  ,  'on'  )  ; 
error ('***  END  OF  PROGRAM  ***') 

end 

end 


errorl=errorO ; 
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%  ***  calculation  of  new  theta  *** 


delM=0.5* (1-mu) *delM; 

theta ( : , k+1) =theta ( : ,  k)  + (dthetadM. *delM) ; 
if  errorO  <=  ( (T/b) *rT2* (R-grip) ) * . 04 , 
thetalc=2* sum (theta ( : ,k) . *cos (psi) ) /naz; 
thetals=2 *sum(  theta ( : ,  k)  .* sin (psi) ) /naz; 
else 

thetalc=2*sum( theta ( : , k+1) . *cos (psi ) ) /naz ; 
thetals=2*sum{ theta ( : ,k+l) .*sin(psi) ) /naz; 
end 

theta ( : , k+1 ) =thetao+thetalc . *cos (psi ) +thetals . *sin (psi) ; 

%  ***  calculation  of  new  dthetadM  *** 

theta= [theta  theta (:, k+1) ] ; 

Mpsi=[Mpsi  Mpsi ( : , k+1)  ]  ; 

theta ( : , k+2 ) =theta ( : , k) +0 . 25/57 . 3 ; 

Mpsi ( : , k+2 ) =zeros (size (Mpsi ( : , k+1) ) ) ; 
k=k+2 ; 
tmcalc 
k=k-2 ; 

dthetadM= ( theta ( : , k+2) -theta ( :  , k)  )  . / (Mpsi ( : , k+2 ) -Mpsi ( : , k) ) 

k=k+l; 

end 

%  ***  retrimming  collective  *** 

theta=theta ( : , k) ; 
k=l ; 
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errorO= (T* . 01) +1? 


while  abs(errorO)  >  T*.01 

set (H_JSTATUS2, 'String' , [ 'COLLECTIVE  TRIM  ROUTINE  IS  ON  ITERATION  # 
' , num2str (k) ] ) 

set (H_STATUS1 ,  '  String ' ,  [ ' RUN  ELAPSED  TIME  IS  '  num2str (fix(toc) )  ' 

SECONDS ' ] ) 

Tpsi= zeros (size (psi) ) ; 

Npsi=zeros (size (psi) ) ; 
thrcalc 

errorO=T- (mean (Tpsi ) *b) ; 
if  errorO  <  -T*.01, 

thetao=thetao-0 . 25* thetao*abs (1 . 25*errorO/T) * ( 1-mu) ; 
elseif  errorO  >  T*.01, 

thetao=thetao+0 . 25*thetao*abs (1 . 25*errorO/T) * (1-mu) ; 
end 

theta=thetao+thetalc . *cos (psi) +thetals . *sin (psi) ; 
if  k  >  1, 

if  abs (errorO)  >  abs(errorl), 
clc 

trim__warning 

set (H_GO, ' Enable ' , 'off ' ) ; 
set ( H_RES , 'Enable' , 'off' ) ; 
set (H_RUPT, 'Enable' , 'off ' ) ; 
set  (H_BK/  'Enable'  /  on')  ; 
error ('***  END  OF  PROGRAM  ***') 

end 

end 

errorl=errorO ; 
k=k+l ; 
end 


%  ***  recalculating  rotor  H  force  *** 


if  Vinf  <  16.9, 
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Hrotor=0; 


dT=[dT  ddT] ; 
dN=[dN  ddN]  ; 

dD= [ dD  ddD] ; 

else 

dT= [ dT  ddT]; 
dN=[dN  ddN] ; 

dD=  [dD  ddD]  ; 

for  i=l: length (r)+l, 

Hlc (i) =2*sum(dT ( : , i) . *cos (psi) ) /naz; 

His (i)  =2*sum(dD( : , i) . *sin(psi) ) / naz; 

end 

Hrotor= ( ( (b*cos (alphaT) /2) * (sum (His) - 
sin (betao) *sum(Hlc) ) ) +Drotor ) / 2 ; 

end 


%  ***  recalculating  rT  *** 

rTl=rT2 ; 

rT2= ( ( (mean (Mpsi ( : , length (Mpsi (1, : ) ) -1) ) /mean (Tpsi) ) /R) +rTl) 12 ; 

end 


%  ***  recalculating  drag  moments  *** 


dT=dT { : , 1 :nbe) ; 
dN=dN( : ,l:nbe) ; 
dD=dD( : , l:nbe) ; 

DMpsi=zeros (size (psi) ) ; 

dmcalc 
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dT= [ dT  ddT] ; 
dN= [dN  ddN] ; 


dD=[dD  ddD] ; 

set ( H_STATUS , 'String' , 'ROTOR  TRIMMED' ) 

set (H_STATUS1, 'String' , ['RUN  ELAPSED  TIME  IS  '  num2str (fix(toc) )  ' 

SECONDS ' ] ) 

set (H_STATUS2, 'String' , 'IS  THIS  BETTER  THAN  JANRAD  3  OR  WHAT?') 
pause (3) 

set (H_STATUS2 , ' String ' ,  "  ) 

save  perftemp  mchord  DMpsi  %  Eccles  addition  -  perf.m  was 

%  not  recognizing  mchord  and  DMpsi . 
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39.  unstructure_stab_input.ni 

%  Unstructure  Consruction  for  JANRAD98  stability_control_input.m 

%  Written  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 

Ib=S_STAB_INPUT . Ib; 
hmd=  S_STAB_INPUT .  hmd  ; 
lmd=S_STAB_INPUT . lmd; 
ymd=S_STAB_INPUT . ymd ; 
im=S_STAB_INPUT . im; 
htd=S_STAB_INPUT . htd; 
ltd=S_STAB_INPUT . ltd; 
y td=S_STAB_INPUT . ytd ; 
bt=S_STAB_INPUT . bt ; 
ct=S_STAB_INPUT . ct ; 

Rt=S_STAB_INPUT . Rt ; 
a  t = S_S  T AB_INPUT .  at  ; 
ohmt=S_STAB_INPUT . ohmt ; 

Ibt=S_STAB_INPUT . Ibt ; 
delta3=S_STAB_INPUT . delta3  ; 
thetalt=S_STAB_INPUT . thetalt ; 
hvd=S_STAB_INPUT . hvd; 
lvd=S_STAB_INPUT . lvd; 
yvd=  S_STAB_INPUT . yvd ; 
a lpl o v=  S_STAB_INPUT . alplov; 
clvertmax=S_STAB_INPUT . clvertmax; 
qyq=S_STAB_INPUT . qvq; 
av=S_STAB_INPUT . av ; 
hhd=S_STAB_INPUT . hhd ; 
lhd=S_STAB_INPUT. Ihd; 
yhd=S_STAB_INPUT . yhd ; 
alploh=S_STAB_INPUT . alploh; 
ih=S_STAB_INPUT . ih ; 
ah=S_STAB_INPUT . ah ; 
qhq=S_STAB_INPUT . qhq ; 
vhvl=S_STAB_INPUT . vhvl ; 
de  t a  f da lp f h= S_STAB_INPUT . detafdalpfh; 
hwd=S_STAB_INPUT . hwd ; 
lwd=S_STAB_INPUT . lwd; 
ywd=S_STAB_INPUT . ywd ; 
alplow=S_STAB_INPUT . alplow; 
iw=S_STAB_INPUT .  iw; 
aw=S_STAB_INPUT . aw ; 
ctw=S_STAB_INPUT . ctw; 
crw=S_STAB_INPUT . crw; 
vwvl = S_STAB_INPUT . vwvl ; 
detaf dalpfw=S_STAB_INPUT . detaf dalpfw; 
zcg=S_STAB_INPUT . zcg ; 
xcg=S_STAB_INPUT . xcg ; 
ycg=S_STAB_INPUT . ycg ; 

Ixx=S_STAB_INPUT . Ixx; 

Iyy=S_STAB_INPUT . Iyy ; 

I z  z = S_STAB_INPUT . I z  z ; 

Ixz=S_STAB_INPUT . Ixz ; 
vfvl=S_STAB_INPUT . vfvl ; 
htnd= S_STAB_INPUT . htnd ; 
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1 tnd=  S_STAB_INPUT . ltnd; 
ytnd=S_STAB_INPUT .ytnd; 
di an=  S_STAB_INPUT . dian ; 
swirl=S_STAB_INPUT . swirl ; 

Y  tmaxn=  S_ST  AB_INPUT .  Ytmaxn  ; 
lttnd=S_STAB_INPUT. lttnd; 
dblmdde 1 e= S_STAB_INPUT . dblmddele ; 
dalmddela=S_STAB_INPUT . dalmddela ; 
dthetomddelc=S_STAB_INPUT . dthetomddelc 
dthetotddelp=S_STAB_INPUT .  dthetotddelp 
sidearm=S_STAB_INPUT . sidearm; 
maxr = S_STAB_INPUT . maxr ; 
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40.  unstructure jstabjnput_l.m 

%  Unstructure  Consruction  for  JANRAD98  stability_control_input_l .m 

%  Written  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 

Ib=  S_STAB_INPUT_1 . Ib; 
hmd=  S_STAB_INPUT_1 .  hind; 
lmd=S_STAB_INPUT_l . lmd; 
ymd=S_STAB_INPUT_l .  ymd; 
im= S_STAB_INPUT_1 . im ; 
hvd=S_STAB_INPUT_l . hvd; 

1 vd=  S_STAB_INPUT_1 . lvd; 

yvd=S_STAB_INPUT_l .yvd; 

alp 1 ov= S_STAB_INPUT_1 . alplov; 

elver tmax=S_STAB_INPUT_l . clvertmax; 

qvq=  S_S  T AB_I NPUT_1 . qvq; 

av=S_STAB_INPUT_l . av; 

hhd=S_STAB_INPUT_l . hhd; 

lhd=  S_STAB_INPUT_1 . lhd; 

yhd=S_STAB_INPUT_l .yhd; 

alp 1 oh= S_STAB_INPUT_1 . alploh ; 

ih=S_STAB_INPUT_l . ih; 

ah=  S_STAB_INPUT_1 . ah ; 

qhq= S_STAB_INPUT_1 . qhq ; 

vhvl =S_STAB_INPUT_1 . vhvl ; 

detafdalpfh=S_STAB_INPUT_l . detafdalpfh; 

htd=S_STAB_INPUT_l . htd; 

1 td=  S_STAB_INPUT_1 . ltd; 
ytd=S_STAB_INPUT_l . ytd ; 
bt=S_STAB_INPUT_l . bt ; 

Ct=S_STAB_INPUT_l . Ct ; 

Rt=S_STAB_INPUT_l . Rt ; 
a t = S_STAB_INPUT_1 . at ; 
ohmt = S_S  T AB_INPUT_1 . ohmt ; 

Ibt = S_STAB_INPUT_1 . Ibt; 
delta3=S_STAB_INPUT_l . delta3 ; 
thetalt=S_STAB_INPUT_l . thetalt ; 
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41.  uncstructure_stab_input_2.m 

%  Unstructure  Consruction  for  JANRAD98  stability_control_input_2 .in 

%  Written  for  JANRAD  version  6.0  by  LT  David  A.  Heathorn 

hwd=S_STAB_INPUT_2 .  hwd; 
lwd=S_STAB_INPUT_2 . lwd; 
ywd=  S_STAB_INPUT_2 .ywd; 
alplow=S_STAB_INPUT_2 .alplow; 
i w=  S_S  TAB_I N PUT_2 . iw; 
aw=S_STAB_INPUT_2 . aw; 
ctw=S_STAB_INPUT_2 .  ctw; 
crw=S_STAB_INPUT_2 . crw; 
vwvl = S_STAB_INPUT_2 . vwvl ;  , 

detafdalpfw=S_STAB_INPUT_2 . detafdalpfw; 
zcg=S_STAB_INPUT_2 .  zcg  ; 
xcg=S_STAB_INPUT_2 .xcg; 
ycg=S_STAB_INPUT_2 .ycg; 

Ixx=S_STAB_INPUT_2 . Ixx; 

Iyy=S_STAB_INPUT_2 . Iyy ; 

I z  z = S_STAB_INPUT_2 . Izz ; 

Ixz=S_STAB_INPUT_2 . Ixz ; 
vf vl=S_STAB_INPUT_2 . vf vl ; 
htnd=S_STAB_INPUT_2 .htnd; 
ltnd=S_STAB_INPUT_2 . ltnd; 
ytnd=S_STAB_INPUT_2 .ytnd; 
dian=S_STAB_INPUT_2 . dian; 
swirl=S_STAB_INPUT_2 . swirl ; 

Y  tmaxn=  S_STAB_INPUT_2 . Ytmaxn ; 

1 1 tnd=  S_STAB_INPUT_2 . lttnd; 
dblmddel e=  S_STAB_INPUT_2 . dblmddele ; 
dalmddela=S_STAB_INPUT_2 . dalmddela ; 
dthetomddelc=S_STAB_INPUT_2 . dthetomddelc ; 
dthetotddelp=S_STAB_INPUT_2 . dthetotddelp; 
sidearm=S_STAB_INPUT_2 . sidearm; 
maxr=S_STAB_INPUT_2 .maxr; 
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